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The Q40 is with us at last and a few 
lucky customers already have theirs to 
tinker with, albeit with a virtually-finished 
operating system at the time of writing. 
Problems like producing the EPROMs for 
it have meant the launch has not been 
that easy for TF Services and Q-Branch 
(when did you last see a computer 
launched without problems?) There have 
also been sticky little points like the in- 
compatible hard disk formats used by 
QDOS Classic and SMSQ/E, although 
this is being addressed. All this is snip- 
ping about the edges and splitting hairs 
though, for the Q40 is one of the most 
significant advances for the QL scene 
for a long time. Peter and Claus Graf 
have put a lot of time and effort into the 
design of the Q40 and it’s here at last - 
more on pages 7 and 57. Although 
seeming to take an eternity to arrive, the 
colour drivers, the sound sampling and 
playback of the Q40 and other features 
will make this THE product to ask for as 
a Christmas or birthday present this year. 
Hopefully, we'll have a user's report on 
the Q40 in the next issue. 

| have finally managed 
to twist Jochen's arm 
into writing an article on 
Things, and he even 
threw in an article 
about Events for good 
measure. And for those 
who think this sort of 
thing may be too 
advanced, try Mark 
Knight's new series on 
BASIC programming. In 
this issue he deals with 
FOR and REPeat loops. 
Thankfully, our cover 
disk with the last issue 
went out with no major 
problems, for once. As 
usual, Some managed 
to find areas for im- 
provement within some 
of the programs and 
the authors (e.g. Geoff 
Wicks and Beginners’ 
Club) moved to produce 
new versions of some 
of the programs, see eee 
the news pages for 
details. 


Dilwyn Jones 


Do you have any ideas for what we can 
put on a future cover disk? Would you 
like a games collection for example? 
Write and let us know. 

Our competition on page 42 of the last 
issue to make a meaningful sentence of 
QL Keywords produced a disappointing 
number of entries, not enough to award 
a prize in fact. We'll hold the competition 
open for this issue to see what happens. 
All you have to do is make up a sen- 
tence from the QL BASIC keywords and 
you could win a prize. 

Meanwhile, Jochen and my girlfriend 
have conspired to make a competition 
out of embarrassing me - see the com- 
petition on the next page. | make an 
easy target, and you can win a little prize 
out of it, so let’s hear from you. I'll take it 
all on the jaw! 

Hope you've all taken note from last 
issue's editorial column that the publica- 
tion date of QL Today has moved - if you 
thought this issue was late, now you 
know why! 


Bad Hair Day at TF Services 
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Embarrass the 
Editor Page 


Since the editor is normally 
rather shy about appearing on 
these pages, here are 3 
pictures he would rather didn't 
appear in QL Today, taken by 
his girlfriend Chris. 


The other two photo- 
graphs were taken during 
a visit to his namesake 
vilage in Herefordshire, 
England, recently. 


"Is this what he means by ‘the Quantum Leap'?" 


A small free software voucher 
from JMS is on offer for the 
best captions for these photos. 
Chris herself has suggested 
one for the middle photograph, 
taken when the editor “es- 
caped” from QL Today duties 
to Ireland recently, to get you 
started! 
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News 
Qubbesoft & Qubides 


Ron Dunnett writes: 

It has come to the point where | 
now have no new QUBIDE's 
left for sale, but there are stil 
QL/Aurora Users out there who 
require a QUBIDE or two. Unfor- 
tunately at the moment there is 
not enough interest to warrant 
another batch being built. 

| therefore am appealing to 
anybody out there who has a 
QUBIDE which is surplus to 
requirement could they please 
contact me. 

| can be contacted in various 
forms as follows: 

Tel/Fax: +44 (0)1376 347852 
Mobile: +44 (0)780 1641616 


Email: ron@qubbesott.treeserve.co.uk 


PARAGRAPH 


Version 1.04 of the Prowess 
based pointer driven wordpro- 
cessor Paragraph is now aval- 
lable, containing many bug 
fixes over the previous ver- 
sions. 

V1.04 may be freely downloa- 
ded from Thierry Godefroy’s 
Web site: 
http://www.imaginet.fr/~ godefroy/ 
english/ download.html 

For users who registered their 
free trial versions, v2.00 has 
now been sent to them. 
Francois Lanciault, the author of 
Paragraph, may be contacted 
by email: franat@aei.com 


New Software from 


Tim Swenson 

FileConfig 

Based on BasConfig (the Con- 
fig Block creator for Compiled 
SuperBasic programs). Instead 
of having to hand enter all of 
the data, the data is put into a 
file and the Config Block is 
generated from it. 

lf you are creating large Config 
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Blocks, this will save you lots of 
time in re-entering the Config 
Block definition if changes 
need to be made. 


Structured SuperBasic 2.6.1 

New Features: 

- 2nd command line argument 
of Starting Line Number Now 
SSB can be used with the 
Make utility. Includes an article 
on how to use Make with SSB. 
- SSBGO - A program that calls 
up SSB, and then Qlib. De- 
signed to be used from inside 
MicroEmacs. Once you save a 
file, execute SSBGO, wait a bit, 
and you now have an execut- 
able to test. 

- Included article on using the 
Revision Control System (RCS) 
with SSB. 

- Improved error reporting. 

lf anyone is interested in beta 
testing these programs, let me 
know and | can send you a Zip 
file. 

Tim Swenson email address: 
swensont@jack.sns.com 


RWAP Software 

BIG Britainmap has now been 
released for Q-Route. This Is 
THE latest map of Britain for 
use with Q-Route. It is twice 
the size of the original with 
much more detail and lots of 
improvements. The coastline 
alone is now nearly 2000 
nodes instead of the original 
500 {you will need to change 
this parameter in QRConfig for 
the map to load). Q-Route v1.07 
and IMB RAM is the minimum 
requirement. This map costs 
£5. Maps of Ireland (£5), West 
Yorkshire (£1), Catalonia (£1) 
and Belgium (£2) are also avai- 
lable for use with Q-Route. An 
update of the original map of 
Britain which can be used on 
smaller systems is also availa- 
ble for £1. 

The following latest versions of 
software have now been re- 
leased: NEMESIS MKIl (v2.02), 


3D TERRAIN (v1.24) and GREY 
WOLF (v1.8) - these all incorpo- 
rate the latest version of the 
Turbo Toolkit and fixes to en- 
sure they will work on the 
atest QL versions. 

Q-Help has now reached v1.01 
upgrades to this version are 
free - send an SAE and master 
disk). This now fully implements 
the features described in Vo- 
lume 3 Issue 6 of QL Today. 
People who already own the 
SBASIC/SuperBASIC Refe- 
rence Manual and wish to use 
this program with it need to 
upgrade to the latest support 
disks (cost £2). These support 
disks were last changed on 
26/9/98. 

Q-Index has now reached v1.02 
(users of Q-Index vit can 
upgrade to vi.02 by sending 
their master disk and an SAE). 
Open Golf v5.20 has now been 
released. This fixes problems 
which the program had running 
under SMSQ/E with Aurora ma- 
chines and other high-resolu- 
tion displays. 


Dave Walker 

Dave Walker's new Web site 
www. itimpi.freeserve.co.uk 
includes details of his latest 
programming efforts, such as 
v4.17 of the QL-PC disk file 
transfer utility Discover (March 
99) which fixes some bugs 
reported in earlier versions. 
Also available is version 4.8 of 
George Gwilt's assembler pro- 
gram (not the same version as 
the GWASL program on our 
last cover disk), and the 
20/3/99 release of the C68 
binaries which fix a couple of 
problems in the earlier v4.24f 
releases. 


Jonathan Hudson 

QTPI v1.66 (18/3/99) is now 
available, which consolidates 
the experimental 162x relea- 
ses. It includes copious docu- 
mentation and all XPR_ proto- 
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cols. Resize via escape se- 
quence now works. V166 re- 
moves the dependency on the 
signal extensions. 

QFAX v2.85 (30/3/99) in- 
cludes some Year 2000 (Y2K) 
fixes. This version consolidates 
all minor releases since 2.80, 
full documentation (2.83) etc. 
Gives qfax MDM[12], adds user 
definable print filters and latest 
qfm (menu driven front end for 
QFAX) release. 

QVM 30/3/99 also includes 
Year 2000 (Y2K) fixes. QVM 
(Quintessential Voice Mail) is a 
Beta voice mail utility. 

All are available from the Web 
site address 
www.jrhudson.demon.co.uk 


Dilwyn Jones 
GRAPHICS VIEWER V1.15. 
Version 115 of my Graphics 
Viewer program iS now avai- 
lable from Quanta and most 
sources of QL PD and Free- 
ware. 
This version fixes many pro- 
blems in the printer drivers, 
most importantly the HP Desk- 
jet screen dumps now work 
(previously failed to work on 
many systems). 
mee 
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CLUB QL 

Mike Kenneally, editor of Club 
QL International's disk based 
newsletter has sent a note 
explaining that he has been in 
hospital for treatment to his 
eye, so current issues of their 
newsletter have been delayed. 
He hopes to be back in action 
by the second half of May. 


Q-CELT SOFTWARE 
Version 0.62 of the EasyBase 
database was released on 
20th April. In addition to fixing 
minor bugs in previous relea- 
ses, this version radically im- 
proves the Import and Merge 
facilities allowing a wider range 
of import formats, and allowing 
the use of Merge to completely 
redesign field layouts - creating 
new versions of databases 
with more or less fields than 
the old file simply by using 
Create to make a new data- 
base with the required layout, 
then letting the Merge com- 
mand reorganise the old file to 
build the new database. 

The manual is still supplied as a 
fle on disk to keep costs 
down, but has now been split 
into sections to make it easier 
for users with Quill and smaller 
memory systems to load and 
print the manual. The manual 
now includes a list of files sup- 
plied, a section listing the file 
format, and a short list of Fre- 
quently Asked Questions 
about EasyBase. 

A utility program is now sup- 
plied to allow renaming of fields 
within a database if required. 
Bugs fixed include providing 
enough stack space to sort lar- 
ger files, stray testing messa- 
ges no longer printed, and the 
parameter errors in reverse 
order sorting have been fixed. 
Contact Q-Celt for upgrade 
details. 


IRISH QL SHOW 

Later this year Darren Branagh 
is hoping to organise another 
Irish QL show, this time near 


the border between Northern 
lreland and the Republic of Ire- 
land to make it easier for visi 
tors from the north to attend. 
Please contact Darren to en- 
courage him if you hope to 
attend or would like to help. 
Q-Celt Software, The Falconry, 
Glenmacnass, Glendalough, Co. 
Wicklow, Republic of Ireland. 
Tel: +353-404 45319 

Email: Q_Celt@hotmail.com 


QUANTA NEWS 

Quanta have bought the copy- 
right to the Assembler Work- 
bench program {as previously 
sold by Talent) and it is now 
available to members free of 
charge from the library. Al 
though the original version is 
still available to those who 
want it (ie, v1.4 on protected 
microdrive} it has some limita- 
tions when running on modern 
systems. Therefore a new 
Quanta version (V2.02) has 
recently been released which 
overcomes these problems 
and in addition has a some new 
useful features. (Please don't 
confuse the Quanta release 
with other non- Talent versions). 
Assembler Workbench is a 
complete machine code deve- 
lopment package. It consists of 
an assembler disassembler 
and machine code monitor pro- 
gram. It is ideally suited to 
beginners since it has an easy 
to use front end; small assemb- 
ly programs can be entered 
directly into the monitor pro- 
gram and then immediately run 
and traced through whilst 
watching ihe effect on the 
68000 CPU registers (and op- 
tionally an area of memory). 
The users program can be 
stepped through one instruction 
at a time by simply hitting the 
space bar or by toggling on/off 
a free running mode with the Fl 
key. Invaluable for finding where 
your program goes astray! 
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Notswithstanding its ease of 
use it iS quite possible to use 
Assembler Workbench to as- 
semble, disassemble and debug 
large programs. It has some 
novel features like the ability to 
trace through Supervisor code 
(ie, Taps) and interrupt users 
machine code programs with 
the ESCape key. The monitor's 
windows can be dynamically 
linked to any output devices/ 
files (ie, output sent to both 
window and device/file simul- 
taneously). There is also a use- 
ful dual screen mode option 
(when not working under the 
PE) which allows you to switch 
the display between the moni- 
tor and the users program dis- 
play (automatically when trac- 
ing). With Minerva this function 
also works in the second 
screen (v2.02). 

V2.02 has been tested and 
works on QL/GC/SGC QDOS/ 
Minerva with or without PE/ 
SMSQE and with QPC. It has 
not been tested on QXL or 
Atari's. Although it appears to 
run OK on a Q40/SMSQE it has 
not been fully tested yet (espe- 
cially with the caches). All the 
changes made since the last 
commercial release V1.4 are lis- 
ted in the changes_doc (or _txt) 
on the library disk. Comments or 
bug reports welcomed. 
Assembler Workbench comes 
with an indexed on-line help 
manual, this help file has also 
been provided in Quill and plain 
text formats. Since the manual 
assumes some knowledge of 
assembler and the 68000 pro- 
cessor some articles will short- 
ly be published in Quanta to 
introduce novices to these sub- 
jects through practical example 
specifically using the program. 
dave.westbury@ btinternet.com 
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Q40 NEWS 

The Q40 system is now avai- 
lable from TF Services and 
QBranch, at prices starting from 
310 pounds for a Q40 board 
with I/O card and no RAM on 
board, or 330 pounds with 
16MB RAM. Up to 32MB of 
RAM can be used. The QDOS 
Classic operating system can 
be supplied with at as what TF 
Services Call a "no cost option’, 
while SMSQ/E 's available for 
an additional 30 pounds. Q40s 
are at long last being sent out 
to customers and there have 
been some pretty encouraging 
comments from users, espe- 
cially about its speed. At the 
time of writing, SMSQ/E was 
not quite complete, but certain- 
ly useable. There is a lot of 
information available on Tony 
Firshman's Web site 
www.firshman.demon.co.uk/q40.htm 
including two Q40_ specific 
downloads, one of which allows 
you to unlink QLiberator com- 
piler runtimes from older com- 
piled BASIC programs (pre-ver- 
sion 1.35 compiled applications 
seem to use high memory 
address bits as a temporary 
store) and the other a short 
text file which gives loading 
hints for the ProWesS system. 
TF Services will also quote you 
a price for building a complete 
cased Q40 system to your 
specification. 


Last minute news: SMSQ/E 1.92 
for the Q40 is ready and being 
shipped. It is very stable and 
also provides access to the 
sampling sound system of the 
Q40. 


BEGINNERS’ CLUB 
Beginners’ Club have released 
version 1.20 of the Euro Cur- 
rency Converter featured on 
our cover disk with the last 
issue. 

In this version, pressing F2 dis- 
plays the currency conversion 
rate. 

The program is freely down- 
loadable from their Web site: 
www.geocities.com/SiliconValley/ 
Lab/5011/soft-e.him 

Beginners’ Club, Via Crispi 20, 
13100 Vercelli VC, Italy 

Email: beginners@geocities.com 


JUST WORDS! 

CHEAPER BUT BETTER 

With the release of STYLE- 
CHECK 3 JUST WORDS! has 
completed the upgrading of its 
program range for use with the 
pointer environment. The price 
of the programs has also been 
reduced. QL-Thesaurus, Style- 
Check and Solvit-Plus are now 
£10 each or £25 for the com- 
plete set. 


STYLE-CHECK 3 
STYLE-CHECK 3 has now 
been released. This is a major 
upgrade of the program 
including the following new 
features: 

Pointer driven and mouse com- 
patible. High resolution screen 
compatible. User configurable 
screen colours. QMENU com- 
patibility. Upper case character 
support. Additional on-screen 
help customised to most sen- 
tences. Updated manual. 
Among the new checks are: 
Adjacent word repetition. Split 
passives. Split infinitives. Hidden 
verbs. Mismatched quotes and 
brackets. Negatively formulated 
sentences. Homophones. 
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The upgrade price is £2.50 + 
return of the master disk. If 
required the upgraded manual 
is an additional £1.50. (Payment 
can also be made in UK first 
class stamps or IRC.s at the 
rate of 2 LRC. = £1) 


QTYP SPANIS 
AVAILABLE 

A QL-user in Spain has sent me 
Spanish and French QTYP 
dictionaries of almost 175,000 
and 209,000 words respective- 
ly He was not sure of the accu- 
racy and so | tested a random 
sample of every tenth word in 
each dictionary using the spell 
checker of Lotus Word Pro. 
There was a matching rate of 
94% for the Spanish dictionary 
and 96.7% for the French dictio- 
nary. Given that a mismatch 
does not necessarily mean an 
incorrect word this is a high 
rate of accuracy. 

Should you wish to have these 
dictionaries please send me an 
addressed envelope enclosing 
a disk and either 2 first class 
UK postage stamps or 2 |IR.C.s 


DICTIONARY 


FRENCH AND ENGLISH DIC- 
TIONARIES 

From two separate sources | 
have received the same com- 
ments on the French dictionary 
supplied with QTYP This is that 
many verbs are not fully conju- 
gated in the second half (I to Z) 
of the dictionary. 

This has stimulated me to look 
at the 65,000 word QTYP Eng- 
lish dictionary supplied with 
Spelling-Crib. A weakness of 
this dictionary Is that it contains 
both UK and USA spellings. 
There were also more errors in 
it than | had expected. | have 
now removed the USA spel- 
lings and made some further 
corrections. By the time this 
appears | hope to have a ver- 
sion of the dictionary available 
conforming to USA spellings. 
The revised version of the dic- 
tionary is available with version 
2.10 of Spelling-Crib. 
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SPELLING - CRIB v. 2.10 

Even the best efforts of the 
Beta-testers are nothing com- 
pared with the experience of 
the first users in testing a pro- 
gram, and Spelling - Crib was 
no exception. Not long after 
the last issue’s cover disk lan- 
ded on the doormats | received 
several telephone calls report: 
ing problems. By the time you 
read this version 2.10 will be 
available from the usual sour- 


ces. 
CONFIGURATION BLOCK: | am 
not sure how it happened, but 
the program acquired a rogue 
configuration block, which gave 
problems for people using 
Menuconfig. This has now 
been corrected, although the 
size of the input window will 
restrict the device and dictio- 
nary name to 31 characters. 
WORD LISTS: Several users 
reported difficulties in loading a 
new word list, although some 
had obviously not read the 
manual, or had not understood 
how QTYP works. All were 
Text87 users. 

When you use QTYP among 
several programs only one dic- 
tionary can be active at a time. 
lt would not be possible to 
have, say, an English dictionary 
in Spelling-Crip and a French 
dictionary in Text87. They must 
share the same dictionary. One 
of the programs operates as 
“mother” program, and this pro- 
gram must be used to load 
another dictionary. 

Suppose you first load the 
QTYP extensions, then Text87 
and finally Spelling-Crib. At this 
stage Spelling-Crib is the mo- 
ther program. If you type a do- 
cument, Spelling-Crib remains 
the mother program. However, 
the moment you press Shift + 
Fi or F6 in Text87 to spell 
check, then Text87 takes over 
as mother program. Should you 
close Text87 down, then Spel 
ling-Crib again becomes the 
mother program. 

To add to the complications 


loading new dictionaries is bad- 
ly explained in the Text8/ ma- 
nual. The keypresses are F3, 
Config, Spelling, Close, Spel 
ling, Open. 

When Spelling-Crib 2.00 disco- 
vered it was no longer the mo- 
ther program, it made the 
WORD LIST command inactive 
and displayed a message, 
"Word list set by other pro- 
gram.” In version 210 | have 
kept the WORD LIST command 
active at all times to avoid 
complications if Spelling-Crib 
has again become the mother 
program. SUPER-CRASH: | am 
grateful to John Gregory for 
discovering that — entering 
f/g/ed, causes a complete pro- 
gram crash. This is because 
the program attempts to check 
the word “fed”, which is shorter 
than the search string. There 
was a length check made at 
one point of the program, but 
this had to be repeated in a 
slightly different form at ano- 
ther point. This is corrected in 
version 2.10, but please let me 
know of similar crashes if you 
find them. 

| have also revised and correc- 
ted the QTYP dictionary. 

Geoff Wicks, 28 Ravensdale, 
Basildon, Essex SS16 5HU, 
United Kingdom. 

Tel: +44 (0)1268 - 281826. 
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Q-Branch 

Q 40 is now shipping with 
SMSQ/E V2.92. Some pro- 
blems which occurred in the 
first release are fixed in this 
version. The Turtle Graphics is 
now working and there is sup- 
port for the BEEP functions. At 
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the moment | have no real de- 
tails on what this version sup- 
ports apart from that. There are 
stil some delays in shipping 
because of EPROM problems. 
We have made an arrangement 
with Francois Lanciault to distri- 
bute Paragraph and collect re- 
gistration fees. We will supply 
the demo version for 1.50 UKP 
+ postage and the full regis- 
tered version for 18.00 UKP 
For address see QBranch ad- 
vert. 


Religion Catalogue 


from George Morris 
George Morris has sent us a 
copy of his latest catalogue of 
religious materials, listing some 
48 products in all, at PD-type 
prices. 

It lists various Bible versions 
available as text files or DOC 
files including the King James 
Bible, New King James Bible, 
NIV Bible, The Concordant Lite- 
ral New Testament, Hebrew and 
Koinee Greek testaments, Bible 
Dictionary, Cross References, 
Clipart disks, Sermons. disks, 
Hymnal database, Bible Com- 
panion, QTYP Anglicised Greek 
dictionary and other study aids, 
plus various leaflets and even a 
cassette based course in 
Greek to help with the Koinee 
Greek based Bible studies, all 
presented and explained in the 
catalogue in a friendly and 
helpful manner If you are reli- 
gious, or wish to obtain such 
material for use in your local 
church, for example, you could 
do worse than get in touch with 
George Morris and ask for a 
copy of this catalogue - most 
of the products are at PD libra- 
ry-type prices. The catalogue 
includes an order form. 

George Morris, 

67 Wood Lane, 

Sutton Coldfield, 

West Midlands, 
England, B74 3LS 
Telephone: (+44) 121-353 8571 
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Jochen Merz Software 
QPC2 News 

A downloadable Pre-Beta2 test 
version of QPC2 is now avai- 
lable from Marcel Kilgus’s QPC 
support pages. While most fea- 
tures now seem to be work- 
able, Marcel says he wishes to 
do more work on improving the 
serial and parallel ports. Ano- 
ther breakthrough: | was able 
to format disks properly with 
the Beta version of QPC which 
Marcel sent me 2 days ago, so 
there is not much left to be 
done and QPC2 will be ready 
soon. Therefore, QPC2_ will 
most likely be shipped from 
End of June. Price and upgrade 
price from QPC1 is not set yet. 
All JMS customers will receive 
a special newsletter when 
QPC2 is ready. 

Version 145 of QPC1 is avai 
lable from Jochen Merz. 


QSpread99 is ready too. Not 
much has happened since Oli: 
ver Fink stopped working on 
QSpread and passed the sour- 
ces over to JMS. About 2 or 
3MB to work through, which 
took quite a while. In the past 
three years, there were just a 
few bug fixes here and there, 
but Bernd Reinhardt and myself 
did some major rework on 
QSpread during our skiing 
holiday (as usual, the only time 
to program - no phone which 
interrupts, no email to be 
answered etc). QSpread99 
was brought up to ‘QD stan- 
dards’. Not only became a 
number of customer enquiries 
reality, we fixed a lot of other 
known bugs, added a new 
QD-style toolbar QD’s nice and 
useful help popup windows, 
improved the menus, rewrote 
the whole print menus and the 
way printing worked {you can 
now easily write your own 
printer driver filters if you like), 
added other bits here and 


there and updated the manual. 
More details on what is new in 
QSpread99 can be found in the 
JMS ad elsewhere in this issue 
of QL Today. 


Other software updates were 
done to FiFi (which is now 
V4.19), QD98 (now A.04), DISA 
(now V3.04). Roy Wood has 
tracked down a bug in Menu- 
Config at the Clevedon Work- 
shop which only affected con- 
figured files where a single 
keystroke was configured (the 
only two we know of are 
QPAC2 and QTYP). You had to 
configure the keystroke in 
order to corrupt the configura- 
tion item. As MenuConfig 
comes free with more or less 
every piece of JMS software, 
you will get it automatically with 
updates of QD, FiFi, Upgrade of 
QSpread etc. 


MicroEMACS v4.00 


News 

Just to let you know that an 
updated MicroEMACS v4.00 
release (13/05/99 release) is 
available at the following URL: 
http://www.imaginet.fr/~ godefroy 
/english/download.html 

You may also look at: 
hitp://www.imaginet.fr/~ godefroy 
/english/QLnews.html 

for a log of the changes since 
the last release. 


EEC (Bill Richardson) is 


searching for ED Disks 

If you have ED disks which you 
do not need anymore, then 
please contact Bill Richardson 
(see his ad in this issue for de- 
tails). ED disks are not manu- 
factured anymore, and many 
QLers use them as a kind of 
small harddisks. So if you con- 
verted your system to real 
harddisk and you have some 
surplus disks sitting some- 
where in your cupboard, do 
others a favour and contact Bill. 
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Quanta AGM and show review 


Darren D. Branagh 


On 25th April last, the annual pilgrimage to Clevedon took place, 
courtesy of Quanta. This was the first time | have attended a 
Quanta AGM meet, and | enjoyed the occasion immensely. 


| travelled with Dilwyn Jones 
and Chris yet again, staying in 
the fabulous Walton Park hotel 
- the same venue as the show 
and AGM itself’ We travelled 
down on the Saturday eve- 
ning, and met up with the 
usual QL entourage in the bar. 
After a round or two of drinks, 
we decided to find the local 
Indian restaurant. This proved 
a lot more difficult than we 
first thought, taking at least 45 
minutes to locate! Roy and 
Steve decided to opt for a 
local pub meal, while the rest 
of us struggled on hungry 
and tired. 

Several minutes later we had 
a close call when a speeding 
Audi [not Jochen! - Editor] 
raged around a corner and 
crashed on the opposite side 
of the road, taking out a 
couple of concrete bollards 
and a pub menu sign in the 
process. A close call, if he 
had swerved to the other 
side instead, he'd probably 
have killed us all. Stuart Honey- 
ball made sure all was OK, then 
we continued on our way. 
Thankfully nobody was hurt. 
Soon after we found the res- 
taurant - | joked that we should 
ask Rich Mellor to amend 
Q-Route to find all 
Indian restaurants In 
a certain area, for 
future use! Still we 
got there in the end. 
At this stage there 
were 8 of us - Dit 
wyn, Chris, Stuart, 
Dave Walker Alf 
Kendal, Jochen 
Merz, Bernd Rein- 
hardt, and myself 
Q40 chat domina- 
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ted, as did QL Internet possibili- 
ties, and a fairly diverse range of 
other topics. After a really good 
meal (worth waiting for) we 
returned to the Hotel. 


Sunday morning soon arrived, 
and after breakfast the traders 
gathered downstairs to set up 
shop. We had access to two 
rooms, one for the traders and 
the other for talks and demon- 
Strations, as well as the AGM 
itself later in the afternoon. 


Roy Wood and Dave Walk 


All the usual vendors were pre- 
sent. Q-Branch took pride of 
place just inside the door and 
rightly so as this was where 
the new Q40 could be seen 
actually working and running 
software. Roy had been telling 
us in the bar the previous night 
just how fast this hardware was 
in comparison to even a Super 
Gold Card, but you really have 
to see it to believe it. It can only 
be described as blisteringly 
quick. It uses standard RAM 
SIMMs, so upgrading it to 
more RAM is easy and readily 
available. | read recently via 
the QL-users email list that 
one user in Italy has just 
received his, with 32 Meg of 
RAM, and a 2 Gigabyte Hard 
drive, all ina Tower This really 
brings the QL into the Mille- 
nium with pride, all we need 
now is internet access, which 
is being worked on. Details of 
the Q40 are available from 
Roy or Steve at QBranch. 
Tony Firshman was next to 
Roy, sporting a Q40 T-Shirt, 
showing where his allegiance 
lies! Tony was also doing 
good business in his primary 
products - namely the Super- 
Hermes, Minerva and the 
excellent RomDisq, and excel- 
lent alternative to a hard drive 
ona QL. 
Next was Rich Mellor of RWAP 
The Superbasic Reference Ma- 
nual was available, as was 
Rich's varied collection of great 
games and adventures for the 
QL. The second 
instalment of my 
QL adventure se- 
ries features ano- 
ther RWAP game, 
NEMESIS - see 
elsewhere in this 
ISSUe. 
Quanta were at 
the top of the 
Room. Bill Newell 
and John Taylor 
were on hand as 
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usual, Bill taking subscriptions 
for membership renewals and 
John was in charge of the 
varied collection of items 
Quanta had for sale, including 
sweatshirts, books, hardware 
and software. John Gregory 
was there with the Quanta 
Library, accepting new pro- 
grams for addition to it, and 
copying disks for members. 
Ron Dunnett of Qubbesoft 
was having a "Spring Sale” - 
many of Ron's hardware and 


software Items were greatly § 
including Aurora | 


reduced, 
motherboards for £/0 in- 
stead of the usual £100. Also 
Ron had several empty IBM 
desktop cases with PSU's 
for only £10 each, and his 
vast PD library was available, 
and catalogues for this were 
free on his stand. 

| was on hand at the Q-Celt 
stand. | gave a demo of Easy- 
Base, and astounded some 
people by creating a name and 
address database from scratch 
in only 3 minutes! It really is 
that easy to use. Many people 
bought it for its array 

of easily configurable || 
options - right down § 
to the colours on the 
screen can be con- 
figured. The Dilwyn | 
Jones Collection 
was also on sale, the 
usual 11 programs for 
the price of just one. 
Dilwyn was set up 
with his laptop next | 
to my stall and was 
able to answer some 
of the more complex | 
questions about this | 
excellent — compila- 
tion, and EasyBase. 
There was a varied collection 
of Hardware and Software on 
the bring and buy _ stand, 
including RGB Monitors for £10, 
dot matrix printers for a fiver, 
and Trump Cards for around a 
tenner Many items were free to 
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anyone who wanted them 


There was even an old OPD 
machine looking for a good 
nomell 


Jochen Merz was next to the 
Bring and Buy, where he 
launched the new version of 
Qspread, called Q-Spread 99. 
Q-Spread is a pointer-driven 
spreadsheet program, and this 


sion of the new QPC, called 
QPC2, was on Jochen’s stall 
too. This was a demo test ver- 
sion obviously, with the more 
worthwhile features missing, 
but it gave some of us the 
chance to see how work is 
progressing on this new 
piece of software. QPC2 will 
multitask with Windows 
| easily - switching between 
, QL and PC will be as easy as 
| pressing ALT&TAB. Also 
| lower resolutions will be able 
| to be “stretched” to fit the 
| whole screen, allowing for 
| larger fonts - a great feature 
f your eyesight is a_ bit 
acking with agel! 
George Morris was also pre- 
sent with printed catalogues 
_ of his range of religious soft- 
ware for the QL, ranging from 
- Clipart to various versions of 
the Bible, quite a collection of 
software. 
Lastly, and certainly not least, 
was Bill Richardson of EEC. He 
had new Z88's and QL's for 
Sale, including the new 512K 
RAM versions of the 288. He 
was taking sub- 
scriptions for 288 
USER magazine, 


ROM's. These are 
of use to people 
who have a PC 
with a CD-ROM 
drive on it, and 
they contain over 
1,200 files for use 


Stuart Honeyball and Henry Orlows tor the  Z88 


is a marked revision and im- 
provement on the original, and 
was Selling well. QD98 was 
also available, and has under- 
gone further minor improve- 
ments since the Hove Show in 
February. A Pre-Beta test ver- 


SourceBook {also 
available for the QL) and hun- 
dreds of eprom images for 
transfer to the Z88. In all, there 
are over 125 Megabytes of 
data on the CD, a huge amount 
in Z88 terms, as most 288 
eproms are only 32K in size! It 
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costs £18 and is available to 
788 USER subscribers for only 
£12 for a limited time. 

The AGM itself started at 4pm, 
the main proposals passed 
were ones to reduce slightly 
the size of the committee in 
view of the somewhat smaller 
membership, and thanking two 
committee members who had 
resigned recently for their ser- 
vice. The main officials were 
re-elected to their posts un- 
opposed. During discussion at 


the AGM itself, we discovered 
from Cyril Phillips that a couple 
of new faces, actually a couple 
of young lads, had attended 
the workshop and gone home 
the proud owners of their first 
QLs, having bought one each. 
A happy note to end a great 
weekend on. Just goes to 
show how much life there still is 
in the QL, and with develop- 
ments like the Q40, QPC2 and 
(hopefully) internet access, long 
may it all last. 


So what are these Things? - Part 1 


Jochen Merz 


| know | should have written 
this article some time ago, but | 
was not sure what to write and 
how to start. 

| decided | will start with 
some general explanation 
about Things, tell you what you 
could do with them (most likely, 
yOu are using them for quite a 
while without knowing) and 
Carry on explaining how to use 
them and even how to create 
them. Of course, that's not 
going to fit into a single issue 
and as we don't want to fill a 
complete issue with assembler 
listings only, lll split it into parts. 
Take It as an additional tutorial 
part to Norman’s assembler 
series. 

To make sure you don't get 
too confused, | will put the term 
“Thing” in upper case when- 
ever | mean the SMSQ mean- 
ing of Thing. 

The name Thing was used 
because a Thing can be vir- 
tually everything. It can be a 
device driver data area, it can 
be a menu, it can be a system 
extension, it can be a program 


The first advantage of a 
Thing is that it has a unique 
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name. You can identify a Thing 
by its name, and find it in the 
system's memory. A Thing can 
be positioned anywhere in the 
memory of your computer so 
the name is the only way to 
find it (similar to how you refer 
to a file by specifying its file- 
name). 

lf a job wants to use a Thing 
(there can be different ways of 
using a Thing depending on 
what it actually is, but more on 
this later). First of all, the job has 
to try to find out whether a par- 
ticular Thing exists in your sys- 
tem - otherwise it can't use it. 
Similar to a file - you have to try 
to open it in order to find out if 
it exists. 

If the Thing exists and the job 
is allowed to use it (there may 
be limitations which depend on 
the Thing, some Things may 
be used by one user at a time, 
others may have more than 
one user ..) then the job Is 
marked as a user of this parti 
cular Thing and it now “knows” 
that the Thing exists and gets 
the address of the Thing. It is 
even possible to specify a 
timeout when trying to use a 
Thing (something which is not 


possible when opening a file - it 
either works or fails immedia- 
tely) - useful for Things which 
may have only one user at a 
time, SO you Can try using it for 
a predefined time and only then 
give up. 

The address of the Thing is 
what you get, and that’s all you 
need, because this is the main 
idea: a kind of “filing system’ for 
parts of your computer's sys- 
tem, together with a user regis- 
tration. Sounds simple, doesn't 
it? And it is simple. 

A job is a user of a Thing until 
it frees (similar to *close’) it. As 
long as a job is a user of a 
Thing, its ‘life’ depends on the 
presence of this Thing. As 
SMSQ |s, Just like QDOS, a self- 
cleaning system (which means 
that if you remove something 
from the system, all items rela- 
ted to this "something" are also 
released/closed etc). If you re- 
move a job in SMSQ/QDOS, 
then all channels which are 
owned by this job are automati- 
cally closed by this system, all 
memory owned by this job is 
returned to the free memory 
list, all jobs owned by this job 
are removed as well and this 
works recursively until all re- 
sources Owned or used by this 
job are freed. 

Things go a step further 
When a job becomes the user 
of a Thing, it seems logical that 
it wants to do something with it 
or relies on its presence. If the 
Thing is removed, then naturally 
all jobs which are registered as 
users of this Thing will be 
removed by the system as well 
- how could a job continue 
using the Thing if it is gone? 
This may lead to unpredictable 
results and we prefer having a 
Stable system. It may sound a 
bit tough to remove jobs but 
think about it - what else can 
be done? 
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Different Things... 

As | have already mentioned 
.. It is possible to have diffe- 
rent kinds of Things. Theoreti- 
cally it would be possible that 
every piece of used memory 
could be a Thing. This would 
probably be ‘overkill’, but it 
would be possible. Not every 
memory allocation needs to 
be recognisable by name, but 
if you think about it, you will 
find that it could be useful if 
larger parts of your memory, 
which contain different parts 
of the operating system and 
device drivers were recog- 
nisable by name. You could 
customise your system while it 
is running, add drivers, remove 
drivers, update drivers. 

In the past, adding another 
RAM-Disk driver while another 
RAM-Disk driver is used will 
not lead to a clean system. 
The old RAM-Disk driver re- 
mains in the system, you will 
find two "RAM" entries in the 
QPAC2 list of devices, but the 
first one is not removed. You 
can still access it - it may be a 
bit tricky, but it is possible. And 
what about files being open to 
the first RAM-Disk driver? 
They remain open until you 
close them. If you open the 
same filename again it will be 
opened to a different RAM- 
Disk ... ooops, ambiguous, isn't 
it? If the RAM-Disk-driver 
would be a Thing, then, when 
the new RAM-Disk-Driver is 
loaded, the old RAM-Disk- 
Driver will be removed from 
the system, the whole memo- 
ry used by it will be released 
and the jobs with open chan- 
nels to this RAM-Disk will be 
removed. What else can be 
done? There is no half-way 
tidy-up. 

Things can also be system 
utilities or system extension. 
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The Menu extension is a very 
good example. If you replace 
the Menu extension by a more 
recent version, then the old 
Menu extension goes away 
and |s fully replaced by the 
new one. Try it: start a QD, try 
loading a file but when the file- 
select window appears (which 
is not part of QD, it is part of 
the Menu extension and QD is 
a user of the Menu Extension 
at this moment), then switch 
back to BASIC and LRESPR 
MENU_rext once again. First, 
the old Menu extension is re- 
moved (and therefore QD will 
be removed as well - remem- 
ber, all users are zapped when 
a Thing is zapped) and then a 
new Menu extension is_ in- 
Stalled. 

QD (and other programs) 
only use utility Things at the 
time they really use them - this 
means you can load a new 
Menu extension without jobs 
being removed as long as no 
pulldown windows contained 
in the Menu extension are 
open in other jobs. It would be 
possible (and maybe a little bit 
faster) for a job to register 
itself as a user of the Menu 
extension (you know, it then 
gets the address of the exten- 
sion) and then remain being a 
user and call the extension 
every time it needs it. This will 
save a few use and free calls, 
and It is guaranteed to work 
too (the address CANNOT 
change: replacing the Menu 
extension, which would lead to 
a change of this address 
would not do any harm be- 
cause at this time QD would 
not exist anymore - remember, 
users of the old Thing are 
gone... 

| hope you are not too con- 
fused by now - once again 
think of the Thing system as 


an identification and registra- 
tion system. 

There is no limit on what 
Things can be. It seems logi- 
cal that if we can have exten- 
sion Things, we can have exe- 
cutable Things as well (just like 
files, you see the analogy all 
the time?). It is possible to 
have many — input-channels 
open to the same file, so why 
not have many users who use 
the same program code which 
exists only once in memory? 
This is the concept of exe- 
cutable Things. The program 
code, which is the same all the 
time no matter if zero, one, or 
any number of the same jobs 
use it, needs to be in memory 
only one time. All QPAC2 pro- 
grams are executable Things, 
and you can execute as many 
as you like until you run out of 
memory. Now you will definite- 
ly agree that users have to go 
away if the Thing they are 
using is removed - how can a 
program execute when its 
program code is gone? You 
see, the concept does not 
sound too drastic, does it? 

The third general Thing type 
is the ‘data’ Thing. Once again 
it is entirely up to the creator 
of the Thing what kind of data 
is stored in here, how it is or- 
ganised and used. | can't re- 
peat if often enough: the 
Thing system is the tool to 
help a job finding the Thing 
and registering for it. 

| think that's enough for this 
time. You may like to read this 
article a second time. If this 
was too difficult, write and tell 
me what you have not under- 
stood. In the next part. we will 
have a look at the Things in 
your system (provided you 
have loaded QPAC2) and one 
of the various ways to create 
Things yourself 
| 
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| This ad does not give a list of all the features 
| of our excellent Editor QD98, it will mainly | egos ee tata 
| list the new features which were introduced | eure o> 
| from the previous version QD Version 9 to 
| the current one. 
Here are its main features: "Hints" are given | ae ee eeearhe 
on menu items and the toolbar. Quite useful, curs-do 
because we have added many extra items SN SANE 
and also added some additional features on [°""*- sl aO-a4,~ (sp? 
"DO"ing some existing icons. Of course, this | ty fee 
feature can be turned off. 
The toolbar can be turned off and on while 
QD is running. A number of QL users asked me to do this because they gain two extra lines - it is done now! 
— can be ordered, you can specify the start column in the text which is used as the sort criteria. 
se The GOTO label/proc/fn are now better accessible. We have also 
=f introduced a GOTO User-defined list. This means, you define a string for 
which QD looks and all the lines containing this text are put into the 
GOTO list (in fact, only the bit of the line after the string). This is very 
useful to create lists of all sorts, just use REMarks or other 
a language-dependent combinations (C...) 
Ra Ret ‘ We have added scroll arrows next to every numerical value entry in all 
menus - you will find this very useful if you use the mouse quite a lot. 
PRINTing has been completely redone. You can print as before, or via 
driver. You can program the driver yourself, because it can be a BASIC filter. 
BASIC and Assembler examples are on the disk. 
Line highlights are now possible and VERY, VERY useful. You tell QD what kind sqitef* maroin: git ele break! 
| of highlights are required and it will highlight these lines in red paper. It can, ByiQirectory: Furi” 
| for example, highlight all assembler comments (; or *), all BASIC Functions and Nee 
Procedures (which is a kind of visual } 
| "folding"), or any |. rE Stati lines with ">" in the 
| first three charac- es fay s ters (useful for mes- 
| sage editing, | So sae PBOX etc.) and, of 
| course, -user-de- : rf fined string. This will 
highlight all lines [ae or an containing the string you gave - quite a neat way of doing a search, 
if you think about : Line inte 8 it. 
"Context" menu |e Block ghd |) which can be popped up with the right mouse button has also been 
| introduced. This is 3 cial = much easier to handle than previous cursor-dependent functions. 
| These are the } : ad major changes, plus various minor ones, of course. You will get a 
| new manual, not | : just additional pages. 
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| The upgrade price is DM 39,90 for owners of QD9, and DM 49,90 for owners of older versions. 
| Please return master QD disk for upgrade. A new QD98 still costs only DM 125,- 


‘ TERR F PAYMENT 

| Postage and package [Germany] DM 8,99 (if total value of goods is up to DM 50, then only DM 5,99). [Europe] DM 14,50 (i 
| total value of goods is up to DM 50,- then only DM 9,50). [Overseas] between DM 14,50 (1 item) and DM 35,- (maximum). Al 
If prices incl. 15% VAT. (can be deducted for orders from (a am, i be) 


non-EEC-countries). E&OE. Cheques in DM, £’s, | 
BC urpeneses and Credit Cards accepted. 


( gunocagp. 
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It is done! A new major release of QSpread is ready! 

We have added many features: 

QD-style toolbar with many additional functions. 
| QD-style menus, shortcuts and keystrokes. 
| SHIFT TAB gives very long formula entry line. 

ALT TAB moves pointer outside grid - if you don’t have a 
| mouse 
| ESC puts QSpread to sleep. SENSE 
| QDs printer driver filters can be used for QSpread as well. 

More intelligent confirmation request settings. 
| All currency symbols are configurable now, including the 

EURO. 

CNTNUM( just counts numerical fields in a range. 
| Multiple “—" and "====" are automatically treated as text. 

Some special single characters like "|" are treated as text. 

Automatic cursor-move after edit configurable, can also 

be turned off. 

New DATE macro function which inserts current date. 


rinter driver: fipi_driver_epson_bas 
er width chars) : 88 Paper length (lines): 


September 
October 

November 
December 


£ 1568.60 £ 658.04 £ 264.20 £ 339.88 


DATE format is configurable, it can be US-format or 4-digit 
ear. 
Default DATE separator character configurable. 


luto~catculation on input 


ursor—move after input: q ith i j 
bias ee bball In addition, lots of long-standing 
ackup file on save q bugs are fixed, €.g.: Wax. XN 
ftirnation request (OS pread o 


Version 2.02 
Copyright 1992-99 
chen Merz Softwar 


ocal directories .. Empty if 3 Window can be resized ofter 

i QSpread was put to sleep. 
DATE$ shows  year-2k-dates 
correctly. 
Double "." and other problems Rete eeceeenens |: 
in small numbers fixed. Lots of bug fixes in the formula parser done. a 


| These are the major changes, plus various minor ones, of course. You will get a new manual, not just additional pages. 


The upgrade price is DM 39,90. Please return master QSpread disk for upgrade. 
| Anew QSpread99 is price-reduced to only DM 149,- 


CueShell 


A quick reminder: you can get QPC together with CueShell by adding DM 40,- to 
| the price of QPC. Even if you already bought QPC, you can add CueShell now if you 
| like. Still only DM 40,-! Please return the original QPC master disk for an upgrade. 
| If you do not own QPC and you like to purchase CueShell: DM 89,- 
TERMS OF PAYMENT 


Postage and package [Germany] DM 8,99 (if total value of goods is up to DM 50; then only DM 5,99). [Europe] DM 14,50 (i 
| total value of goods is up to DM 50,- then only DM 9,50). [Overseas] between DM 14,50 (1 item) and DM 35,- (maximum). Al 


prices incl. 15% V.AT. (can be deducted for orders from 7 ry 
ras | 
‘4 OP 


) non-EEC~—countries). E&OE. Cheques in DM, £’s, 
gueeeuiess’ Eurocheques and Credit Cards accepted. | 


\ EUROCARR. 
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My Boot Program 


Wolfgang Lenerz 


It seems that there is a certain 
interest in the way different peo- 
ple boot up their machines, 
hence here are a few words 
about my own Boot Program. | 
don't pretend that this is in any 
way particularly intriguing, but 
perhaps an aspect or two might 
be interesting. The program is, of 
course, specially tailored for me, 
so | don't know whether it can 
be of any use to YOU, but here 
goes. Please note that my Boot 
Program is an evolved program - 
| add to if from time to time 
whenever my needs change. 
This means that there are proba- 
bly some bits in there that, if 
written from scratch, could cer- 
tainly be improved upon. Other 
bits are probably obsolete. How- 
ever, | firmly believe in the maxim 
-"if it works, don't change it’ 

As you will see, | make quite 
heavy use of the ‘dev’ device, 
the virtual device. A few issues 
ago, somebody wrote in QL 
Today that he really couldn't see 
the use of such a virtual device. | 
personally couldn't live without it! 
(Just a little reminder for those 
that don't use this device: dev is 
a virtual device, which refers to 
an actual existing device. For 
example, one could set up 
“devi_’ to be ‘wini_’. Then, typ- 
ing something like "DIR devi_’ 
would actually give a directory of 
winl_. One can also set up 
‘devi_’ to be something more 
complicated, like ‘wint_quill.” so 
that ‘DIR devi_” would list the 
files in the "wini_quill.” subdirec- 
tory. This can come in quite han- 
dy with the old Psion programs,) 

To explain why | really need 
such a virtual device, first a few 
words are needed on my setup, 
or rather my various setups as | 
have more than one. For various 
reasons, which | really needn't 
go into here (else I'd bore you to 
death), | have several QL-type 
machines: two PCs running 
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QXLs, a laptop running QPC, an 
Atari Mega ST and, yes, an old 
black box itself together with an 
(original) GoldCard and 2.88 MB 
drives. | hope this doesn't seem 
I'm bragging. since, actually, | had 
a use for every single one of 
these machines: One of the 
QXLs is used at the office. Ano- 
ther is used at home, mainly to 
continue working on whatever | 
was doing when | got home. The 
laptop of course comes with me 
on any travel. The ST had long 
served me as my main computer 
until the QXL came along. The 
QL itself was used mainly for 
software libraries: at some time, | 
was a Quanta sublibrarian, and 
also the librarian for our french 
club, QLCF Today, the St and QL 
are semi-retired, even though | 
still use them for testing purpo- 
ses. 

One problem with such a multi- 
machine setup is that of consis- 
tency: | would really like to be 
able to switch from one machine 
to the other without really know- 
ing (or needing to know) which 
machine Im currently working 
on. This used to be a problem, 
since the PCs under QXL would 
run SMSQ, QPC works with 
SMSQ/E, the QL had a JS ROM, 
the Atari something else again 
and so on. Each of these opera- 
ting systems had their own little 
quirks. This is why | was so glad 
when SMSQ/E came out - for 
there now is ONE AND THE 
SAME operating system for all of 
my machines - all of them thus 
now have the same capabilities. 
Sure, some run faster than 
others, but this is really secon- 
dary. 

OK, so now | had the same 
machine everywhere - but some- 
thing was still amiss: Indeed, all 
machines, save the QL, have 
harddisk drives - but they are not 
all "wint_’. For some reason, on 
the PCs, the "QXLWIN’ file is not 


on the C: drive (which would 
make it "wint_), but on different 
drives factually and just to make 
everything really complicated, 
the file resides on drive D: on 
one machine, on drive E: on 
another and on F: on the third). 
This means that whilst on the 
Atari, all my files reside on wint_, 
on the PCs they are on win2_, 
win3_ or win4_. On the QL, of 
course, everything is in flpt_. 
Imagine the headache to remem- 
ber where everything is. Also, if 
you configure a program on one 
machine and tell it that it's data 
lies, for example, in ‘wini_aff_ 
data_’, on the other machine it 
would have to be configured for 
"win2_aff_data_” etc. Ugh! 

This, of course, is where the 
‘dev’ device comes in: | just 
need to have “devi_’ refer to the 
actual WIN drive (or flpi_ on the 
QL) that | am using, and then | 
always refer to devi_: the pro- 
gram thus can be configured 
only once to look for its data on 
‘devi_aff_data_’, and it needn't 
care what exactly devi_ is. 

There remains one single little 
problem: how does devi_ get 
configured? I'm of course much 
too lazy to want to type this in 
each time | use a machine (| 
mean, I'd have to remember 
which machine used what drive - 
unthinkable), and so the QL does 
it for me. This is the. ‘find_ 
mydrive$ function, which is 
called early on in the program. 
The function lies at lines 3150 
and following. As you can see, it 
first sets DAIA_USE to an empty 
string (of which more later). It 
then tries, in a loop, to open a 
directory on wint_ to win8_, with 
the FOP_DIR command. As soon 
as this is successful, it knows 
that there is a valid hard disk, 
which necessarily is the first QL 
hard disk in the system. so it re- 
turns this and dev is later set to 
this. This is also why DATA_USE 
is Set to an empty string. Indeed, 
FOP_DIR function will try to open 
the directory with the given 
name (eg. wint_ on the first go). If 
this isn't successful, it will at- 
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tempt to open a directory with 
the given name and the DATA_ 
USE default added to the front of 
the name (e.g., if DALA_USE were 
set to fipi_, it would try to open 
floi_wint_). Then, if a disk were 
in flpt_, the FOP_DIR function 
would return successfully (!) and 
the end result would be wrong. 
The end result is, anyway, that 
the computer sets “devi_’ to the 
correct hard drive and even to 
flpi_ on the QL. 

Right, now let’s go on to the 
Boot Program. First of all, | set a 
few variables in the “constants’ 
procedure. Most of these will be 
explained later on. The ‘ws’ 
procedure is then called, it sets 
up a totally black screen, and 
then proceeds to print a preten- 
tious little message more or less 
centered in the screen. To do 
this, it uses the xlim and ylim 
variables, which, in the ‘con- 
stants’ procedure, were set to 
the X and Y screen sizes - these 
vary from machine to machine, 
the QL of course being limited to 
the usual 512*256 size. On the 
PCs, | use 800*600, the Atari 
has yet another screen size. The 
“ws procedure works OK what- 


will be machine tool 


ports (not in assembler, 
mainly in BASIC). 

lf you are interested 
contact us at our office 
address (see right) 

or send email to 


One of the main projects 


data recording via serial 


vogel-isernhagen@t-online.de 
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ever the screen size (provided it 
is not smaller than a standard QL 
screen). 

| then reset the windows and 
print a small message (lines 
150-190) - note how window#0 is 
made practically non-existent. 
This is done on purpose. Indeed, 
later on | load a large set of 
extensions. Setting window #0 
to this size stops the extensions 
from printing their initialisation 
messages all over the screen, 
which | find to be aesthetically 
unpleasant. | know that the 
extensions are being loaded and 
don't need to be reminded. 

After that, | find the drive to 
which Il set my devi_ device, 
through the use of the ‘find_ 
mydrive$’ function discussed 
above. If this is unsuccessful, the 
Boot Program complains and 
stops right there (lines 210-220). 

In lines 240 to 380, | load all of 
the extensions | need. Here 
again, a few words might be be- 
neficiary. This section was added 
to my boot file when the QXL 
came about. The speed at which 
the QXL reads/writes from hard 
disk can be described as dismal. 
| thus thought that it would be 


& ™ CONTROL TECHNIQUES servicestitepunit 


~ Planung und Projektierung von Maschinensteuerungen 
~ Programmierung von Steuerungssystemen (SPS, etc.) 
~ Anwendungsspezifische Antriebslésungen 

~ lnbetriebnahme, Service, Instandhattung 


better to have all of the exten- 
sions in one single big file rather 
than in several small files (| load 
35 extension files in all). So, with 
the help of a small procedure 
which we'll discuss later, | made a 
single file of all my extensions - 
they are just put one at the end 
of the other The result file is 
called ‘devi_booty_boot_rext’. 
Its Current size is denoted by the 
‘tot_len’ variable, initialised in the 
"constants" procedure and is 
currently 303152 bytes. This is 
loaded with a single LBYTES 
call. The individual extensions 
are then called through a loop 
which reads the name of the 
extension file and the length 
thereof and thus can call the 
exact place in this file where 
each extension is located. The 
name is printed out (this was in- 
serted here for debugging pur- 
poses, so that, if the boot pro- 
cess suddenly stopped, | could 
know what extension causes 
the trouble since some of them 
are written by me, the risk is 
always there..). 

The names of the extension 
(files) are held in the DATA state- 
ments at lines 2510 and following. 


ANTRIEBS- UND 
STEVUERUNGSTECHNIK 


Joachim Vogel « Hannoversche Si, 22 « 30016 isernhagen 
Jei.05 11/46 1057-31 + Fox 0811/6 10 97 : ne 
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The only thing to watch is to 
make sure that all files to be 
loaded in such a manner are of 
even length. If not, the next file 
would be loaded at an uneven 
address, which will cause all 
sorts of problems! 

In lines 380-430, after resetting 
window#0 to something suitable 
| set the serial ports to whatever 
value suits me. This would actu- 
ally give some problems on the 
QL, but | never really used that 
for serial Communications any- 
way. 

The ‘use_defaults’ procedure 
called in line 440 sets the diffe- 
rent devices for dev1_, the prog, 
data and dest defaults etc. It also 
sets the SUB device (yet another 
virtual device) to devi_. This is 
purely a legacy command, | 
could reconfigure everything for 
devi_. 

After printing out the time (of 
which more later), | load a special 
keyboard layout which, on a PC 
keyboard, gives me a CTRL-C 
on Fil and a CTRL-SPACE on 
F12 (lines 470-510). The PUT_ 
KBD keyword is part of the 
‘clavier_bin’ extension. "Clavier’ 
is also available on several 
BBSes and allows you to remap 
your keys under QXL or QPC. 
Lines 520-560 load my accoun- 
ting package. As you can see, 
whether or not it is loaded de- 
pends on the “do _all%’ variable. If 
| take the REMark out of line 120 
then do_all% is 0 on some ma- 
chines with less than 5 MB RAM 
and thus some programs are not 
loaded 

Just after that, in lines 580 to 
680, | load a certain number of 
programs: the QPAC 1 calculator 
and three programs of my own 
design. These are pretty straight- 
forward HOTKEY calls. Note that 
| could replace the HOT_RES, 
HOT_REMV and HOT_WAKE 
combination with a single HOT_ 
RESI, but inertia just keeps this 
as IS... 

After loading another program 
necessary for managing my 
office work (lines 690-720), | then 
set up some of the QPAC2 
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100 PRINT "Booting..." 

110 do_all%=1 

120 REMark IF FREE_MEM<« 5E6:do_al1%=0 
130 constants 

140 ws 

150 WINDOW 512,12, 0+xx,244 

160 WINDOW#0,0,0,XLIM, YLIM 

170 BORDER 1,4 

180 PRINT ' Date/Time: ';DATE$;' - 
190 OVER 0 

200 : 

210 mydrive$=find_mydrive$ 

220 IF mydrive$="":PRINT "CAN'T FIND MY DRIVE! !!":STOP 
230 : 

240 CLS 

250 PRINT ' Date/Time: ';DATE$;' - 
260 a=RESPR(tot_len) 

270 LBYTES mydrive$&"booty_boot_rext",a 

280 : 

290 RESTORE 

300 REPeat 1p% 

310 READ a$,b 

320 =PRINT "calling ";a$;"..."5 

330 CALL a 

340 azatb 

350 PRINT "ok" 

360 IF EOF():EXIT 1p% 

370 END REPeat 1p% 

380 : 

390 WINDOW#0,100,100,0,50: INK#0,4 

400 BAUD 57600 

410 SER_BUFF 2,1024 

420 SER_BUFF 1, 1024 

430 : 

440 use_defaults 

450 time 

460 : 

470 addr=RESPR( 808) 

480 LBYTES devi_booty_kbd_kbd, addr 

490 PUT_KBD addr 

500 LANG_USE gb 

510 : 

520 IF do_all% 

530 CLS: PRINT" Loading Compta" 

540 EX dev2$&"compta_obj" 

550 END IF 

560 : 

570 CLS:PRINT" Loading Calculator" 

580 ERT HOT_RES('C',dev2$&!calculator') 

590 ERT HOT_REMV('C') 

600 ERT HOT_WAKE('C', 'calculatrice') 

610 CLS:PRINT" Loading memlib" 

620 ERT HOT_RES(CHR$(9) ,dev2$&'MEMLIB' ) 

630 CLS:PRINT" Loading date" 

640 ERT HOT_RES(CHR$(27) ,dev2$&"date_bin") 

650 CLS:PRINT" Loading sysdef2" 

660 ERT HOT_RES('D';dev2$&"sysdef2") 

670 ERT HOT_REMV('D'):ERT HOT_WAKE('D', 'Sysdef2') 
680 : 

690 IF do_all% 

700 CLS:PRINT" Loading Affaire" 

710 EX dev2$&"affaire_obj" 

720 END IF 

730 : 

740 CLS:PRINT" Loading QPAC2" 

750 qpac2 

760 : 

770 CLS:PRINT" Loading Linker" 

780 ERT HOT_RES('1', dev2$&'Linker!):ERT HOT_REMV('1') 
790 CLS:PRINT" Loading Make" 

800 ERT HOT_RES('1',dev2$&'Make'): ERT HOT_REMV('1') 
810 CLS:PRINT" Loading QMac" c> 


Searching for drive...'; 


Loading extensions file now:'; 
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ProWess 


search| PFlist 
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T 
ProWesS is a new user environment for the QL.: 
ProWesS is short for "PROGS Window Manager". | 
but it is much more than that. Apart from a new 
window manager, it contains all the system 
extensions from PROGS, and is essential if you: 
want to run programs which need these. 
extensions. j 
The ProWesS reader is a major part of the 
package. It is a hypertext document browser. This| 
means that text files which include formatting. 


commands (including pictures) and possibly links) ; 


to other files can be displayed and read in this 
program. This is used in ProWesS to read (and 


possibly print) the manuals, and display the help| 


format which is popular on Internet to display 
World Wide Web pages. 
Another important aspect of ProWesS is the 
possibility to allow programs to automatically. 
install themselves on your system, and to be able; 


to run them without resetting the system. This| | 
means that, when you get a new program, all you) | 


have to do is insert the disk and indicate "start the 


pragram in flp1_", a menu option in the ‘utilities": 


button. To install a program, you indicate "install; 
software", and the software can be added to your 


system. This way, you don't need to know how to} . 


write a boot file to use the multi-tasking 
capabilities of your computer. 


| 
ProWesS includes many programming libraries. : 


These include sysiib, an interface to the operating 
system, PROforma, a vector graphics system, 
allowing rendering both on screen and on paper 


(via a printer driver). The DATAdesign engine is! 


also part of ProWesS. it is a relational database: 
system with a bonus, as you don't even need a 
key field. You get a powerful record at a time data 
manipulation extension to the language you 
already use. Of course it also includes ProWesS) 
itself, the new resolution independent window! 
manager. 


Easy to use program to create listings on any 


printer (especially inkjet and laser). This ProWesS | 


application allows you to indicate the files which | 

have to be printed. Each column contains a footer 

which can include the filename and filedate. The 

listings always allow perforation. PFlist can create 

Gee in two columns and in landscape (or ; 
oth). 


File search utility with many useful options, like 
the choice to search only files with a certain 
extension, and whether or not the directory tree | 
has to be scanned. All 
searchstring will be displayed with line number or | 
offset. You can also use special matching 
features, like case dependent, matching a space 
with a stretch of whitespace, and searching for a 
word dilimited string. 


font- 
utils 


manage your font collection. You can preview 
fonts on screen, see what characters exist in a 
font and convert Adobe Type 1 and similar fonts 


occurences of the. 


Nou P a Ye aT caf fy ift ehecalion 
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: es 
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LINEdesign 


Create artistic drawings, technical drawings, process bitmaps 
(even scale and rotate them!), and any kind of vector 
drawings. You can use grpahics objects to create the most 
fabulous drawings ever seen. Because LINEdesign is a vector 
drawing program, any part of the picture can be moved, 
scaled, rotated, slanted without any loss of precision or 
resolution. In LINEdesign, pictures are device independant, 
; meaning that the printout will be the same on any printer (e.g. 
| same size and position). 

LINEdesign is good at handling text. You can easily put titles 
and full paragraphs on the page. All the fonts can be displayed 
at any size, rotation, etc. All the fonts which are available to 
ProWesS can be used in LINEdesign. 

LINEdesign is a drawing program, but it can also be used by 
people who are not good at drawing. LINEdesign is a great 
program for making leaflets, posters, and any kind of printed 
work. Lots of clipart and extra fonts are available from public 
; domain libraries and BBS's. You can even import Adobe 
Illustrator files. 


DATAdesign 


Never before has it been so easy to create, fill in and maintain 
your personal databases. To start a new file, just type the 
names of the fields. To add or delete a field, no problem, just 
‘do it. To change the name of a field, just indicate it. You can 
, choose which fields are displayed and also which records. You 
| can have a hidden comment for each record, look at the file in 
tabulated form and transfer data to the scrap or hotkey buffer. 


for use in ProWesS. 


Files can be memory based (for speed) or disk based (for 
| safety). 


new 


rf 
address !! 2050 Edegem 


Dr. Fr. Hemerijckxlaan 13 /1 


tel : +32 (0)3/ 457 84 88 
fax : +32 (0)3/ 458 62 07 
email : joachim@club innet.be 
Www : http: /iwww.club.innet.be/~year2827 


ProWes 


please specify 


Boscia ner & Graphical Software 


ProWesS - BEF 2400 


Payment terms + 


You have to run ProWesS to make LINEdesign, DATAdesign, fsearch, fontutils 
and PFlist work (even though DATAdesign uses wman). 

All our software is normally supplied on high density (HD) disks. However | 
they can be obtained on double density (DD) disks at an extra casts of BEF | 
10C. To use ProWesS and any of our other packages, you need a system with at 
least 2MB of memory. You should have a harddisk although a two disk system 
will ee work. Tac use of SMSQZE is strongly recommended for optimal use of 
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DATAdesign - BEF 12 


Ifyou are _VAT registered (specify registration number) or live outside the EEC, 
the amount to be paid is the total (¢ncluding postage) divided by 1.21 (no need 
to pay foo much). 

Payment can be done by EuroCheque in BER or by VISA, EuroCard or 
MasterCard. Credit card orders can be handled by shone. For credit card, 


name of card owner, card number and expiry date. 


LINEdesign - BEF 1200 


PWrile - BEF 900 PFlist - BEF 600 
fontutils - BEF 1200 —‘fsearch - BEF 600 
ee : Costs of soln and packaging have to be added. 


00 


ou can choose the quality. Rate depends on no of programs. 
|| priority mail | ordinary mail 
| copies | Belgium Europe World | Belgium Europe World 
Jone |/ 100 200 7 240 | 100 | 120 | 145 | 
‘two | 135 340 | 420 |, 135 | 190 | 230 | 
| 30r4|} 160 560 | 770 || 160 | 310 | 395 | 
| 5to8|} 185 870 1250 || 185 550 705 | 
i 295 1130. 1610 | 4 295 | 800 1030 | 


| more 


All ness are in BEF, mdading 21% VAT 
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programs. | generally don't need 
all of them, but | still set them up. 
This is done via two procedures, 
“qgpac2’ {lines 1470 to 1590) and 
“qp2" (lines 1610 to 1680). The 
"gpac2” procedure just sets up 
the hotkeys. The ‘gpac2" pro- 
cedure calls the ‘gp’ procedure, 
which sets up the buttons in the 
button frame and starts the hot- 
key job. | don't put all of the 
Qpac2 jobs in the button frame, 
since all of my ‘professional’ pro- 
grams also place themselves 
into the button frame, and | just 
don't want to have too many 
buttons flying around - | find that 
they take away too much screen 
real estate. 

After that, | load some pro- 
grams needed for assembling 
assembler files. Note how | load 
them with HOT_RES, and then | 
throw the corresponding Hotkey 
away: the only purpose of this is 
to load the programs as execu- 
table things, where they stay in 
memory all the time. They are 
then called directly from memory 
whenever needed (lines 
770-860). 

| also load my invoicing pro- 
gram (lines 870-920) after which | 
set up a certain number of often 
used hotkeys, mostly used for 
putting my name at the bottom 
of letters... (lines (930 - 990). | 
then set up Hotkeys for QD 
(lines 1000 to 1020). The QD file 
itself is loaded as one of the 
extensions. | set up two hotkeys 
for QD, one for picking/waking 
an existing QD (line 1010), and 
another for getting a new QD 
(line 1020). 

In line 1060, | load a small pro- 
gram called ‘blank’. When exe- 
cuted by pressing the corres- 
ponding Hotkey ('&’), this blanks 
out the entire screen and waits 
until a password is typed in, for 
the obvious reason to stop 
people from reading whatever 
might be on the screen. I'm pro- 
bably a bit paranoid.. This little 
program also stops the machine 
from multitasking, so that you 
can't get around this protection 
by hitting CTRL-C. 
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820 ERT HOT_RES('1',dev2$&'Mac'): ERT HOT_REMV('1') 
830 CLS:PRINT" Loading Qlib" 

840 ERT HOT_RES('1', 'devi_qlib_qlib_obj'):ERT HOT_REMV('1') 

850 ERT HOT_WAKE ('1', 'Qlib_3.35') 

860 : 

870 IF do_all% 

880 ERT HOT_WAKE('a', 'Affaire') 

890 CLS:PRINT" Loading Facture" 

900 EX dev2$&"facture_obj" 

910 END IF 

920 : 

930 CLS:PRINT "Setting up hotkeys" 

940 tab$=CHR$(9) &CHR$(9) &CHR$(9) &CHRS(9) 

950 cr$=CHR$(10) &CHR$(10) &CHR$(10) 

960 ERT HOT_WAKE('c', 'Compta') 

970 ERT HOT_KEY('W', tab$a"w. 
Lenerz"&CHR$(10) &CHR$(10) &CHR$(10) &tab$&"Avocat A la Cour") 

980 ERT HOT_KEY('w',tab$&"W. Lenerz") 

990 : 

1000 IF do_all%:ERT HOT_WAKE('T', 'Xchange') 

1010 ERT HOT_WAKE('q', 'QD') 

1020 ERT HOT_THING('Q', 'QD') 

1030 : 

1040 IF do_all%:ERT HOT_WAKE ('g', 'Facture') 

1050 : 

1060 ERT HOT_RES('&',dev2$ &"blank") 

1070 : 

1080 IF do_all% 

1090 CLS:PRINT" Loading print_models" 

1100 EX printmodels_obj 

1110 CLS:PRINT" Loading xchange" 

1120 =EX xchange 

1130 ERT HOT_KEY('b',CHR$(240)&!tdevi_quill_startup_ts1 '&CHR$(10)) 
1140 END IF 

1150 : 

1160 ERT HOT_KEY('<', 'es'&CHR$(10)&'di2 *'&CHR$(10)&'ct! &CHR$(10) ) 
1170 ERT HOT_KEY('v',"Veuillez agraéer, Cher Monsieur, 1'expression de 
mes “ie distinguas."&cr$&tab$&"W. Lenerz"&cr&tab$&"Avocat 4 la 
Cour" 

1180 ERT HOT_KEY('V',"Veuillez agrder, ChEre Madame, l'expression de 
mes sentiments distinguas. "&cer$&tab$&"W. Lenerz"&cr$&tab$&"Avocat a 
la Cour") 

1190 IMP_NAME "par":PRT_USE "par" 

1200 SECURE 3 

1210 : 

1220 IF do_all% 

1230 REPeat 1p% 

1240 IF BIN_APX('Compta') AND BTN_APX('Affaire') AND 
BIN_APX('Facture!):EXIT 1p% 

1250 PAUSE 10 : REMark wait till all finished 

1260 END REPeat 1p% 

1270 ERT PICK (11,10) : REMark pick Xchange 

1280 PAUSE 60 

1290 HOT_DO 'b! 

1300 ERT HOT_KEY('b' ,CHR$(236)):PAUSE 40:HOT_DO 'b! 

1310 PAUSE 20 

1320 HOT_DO sleep$ 

1330 ERT HOT_REMV('b') 

1340 END IF 

1350 : 

1360 ERT HOT_PICK('B','') 

1370 ERT HOT_WAKE('b', 'Sbasic') 

1380 POKE_L !!$8C ,HEX('00100001') 

1390 PAUSE 40 

1400 HOT_DO 'B' 

1410 WSET_DEF 256,34,XLIM-256, YLIM-34 256, YLIM-bto-34 ,XLIM-256, bto, 
XLIM-256 , YLIM-bto,0,bto 

1420 OUTLN#0,XLIM, YLIM-bto,0,bto 

1430 WM:PAUSE 1 

1440 HOT_DO sleep$:PAUSE 4 

1450 EXEP 'sbasic';'lrun devi_booty_sbasic' &CHR$(10) 

1460 : 
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1470 DEFine PROCedure gpac2 


1480 REMark set up hotkeys for qpac2 


1490 
1500 
1510 
1520 
1530 
1540 
1550 
1560 
1570 
1580 


ERT HOT_WAKE('f', 'files'; '\sfn\ddev1_') 
ERT HOT_WAKE(‘h', ‘hotkeys') 

ERT HOT_WAKE ('t', 'things') 

ERT HOT_WAKE ('k!, 'channels') 

ERT HOT_WAKE( 'r', 'rjob!) 

ERT HOT_THING(sleep$, 'Button_Sleep') 
ERT HOT_THING('.', 'Button_Pick') 

ERT HOT_WAKE('e', 'exec') 

ERT HOT_WAKE (*j','jobs') 

ape 


1590 END DEFine gpac2 


1600 


1630 
1640 
1650 
1660 
1670 


1690 : 


1730 
1740 
1750 
1760 
1770 
1780 


1610 DEFine PROCedure qp2 
1620 REMark set up buttons for qpac2 


HOT_GO 

BI_SLEEP ‘channels! 

BT_SLEEP 'rjob! 

BI_SLEEP ‘exec! 

BI_SLEEP 'files';'\sfn\ddevi_'! 


1680 END DEFine qp2 


1700 DEFine PROCedure no_hotk 
1710 REMark delete all hotkeys! 
1720 LOCal hname$,key$,1p% 


FOR 1p%=33 TO 255 
key$=CHR$(n) 
hname$=HOT_NAME$(key$) 
IF hname$ <>'':ERT HOT_REMV(key$) 
END FOR lp% 
ERT HOT_REMV('B') 


1790 END DEFine no_hotk 


1800 : 


1810 DEFine PROCedure make_file 
1820 REMark make my boot_rext file 
1830 LOCal add,a,b,1p% 


1840 
1850 
1860 
1870 
1880 
1890 
1900 
1910 
1920 
1930 
1940 
1950 


constants: RESTORE 
add=ALCHP(tot_len) 
a=add 
REPeat 1p% 
READ a$,b 
LBYTES mydrive$&"booty_"&a$,a 
a=a+tb 
IF EOF():EXIT 1p% 
END REPeat 1p% 
SBYTES_O mydrive$&"booty_boot_rext", add, tot_len 
sa 
RECHP add 


1960 END DEFine make_file 


1970 


1980 DEFine PROCedure sa 


1990 
2000 


2020 : 


2050 
2060 
2070 
2080 
2090 
2100 
2110 


SAVE_O mydrive$&"booty_boot_bas" 
QSAVE_O mydrive$&"booty_boot" 


2010 END DEFine sa 


2030 DEFine PROCedure use_defaults 
2040 REMark set up default dirs & devices 


DEV_USE 1,mydrive$ 
DATA_USE "devi_basic_" 
DEST_USE "devi" 
PROG_USE "devi_progs_" 
dev$="devi_booty_" 
dev2$='devi_progs_! 
SUB_DRV mydrive$(1 TO 4) 


2120 END DEFine 


2130 : 


2140 DEFine PROCedure verif 


2150 REMark check file length consistency 
2160 LOCal 1p%,a,b,c,a$,chan%, erfl% 


2170 
2180 


| Sees 


RESTORE : constants 
e=0: erf1%=0 
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The next step (lines 1080 - 1140) is 
optionally, to load Xchange, for which | then 
set up a small hotkey, which will later be 
inserted into its keyboard queue, and causes 
Xchange to run a small TSL program. This in 
turn will set up a certain number of pre- 
ferences in Xchange, call up Quill and 
automatically load a default document which, 
without much originality, | call default_doc. 
That way, Quill is all set up and waiting exactly 
as | want it. 

The next few lines (1160-1190) set up a 
certain number of other hotkeys, again for 
signing off letters and set a few special print 
buffers. In line 1200, | set up another security 
feature, much like the ‘blank’ program men- 
tioned above. This sets up another small 
program, Called ‘secure’ which, after a certain 
time of inactivity (here three minutes), also 
blanks the screen and waits till a password is 
typed in. In other words, if | don't move the 
mouse or type anything on the keyboard for 
three minutes, the screen goes black. Just 
another paranoid security feature, but usefu 
when leaving the office for a few moments. 

Lines 1220 to 1340 are, again, conditional. If 
they are performed, there first is a loop that 
waits until my office programs all have initia- 
lised themselves and are set up as buttons. 
This is achieved with the BTN_APX function. 
That is part of a pointer toolkit | have written. 
The function returns 1 if a job with the given 
‘approximate’ name is set up as a button. 
Once my jobs are set up as buttons, Xchange 
is picked and the programs waits a few heart- 
beats till Xchange is really there and then 
does the Hotkey mentioned above causing 
Xchange to load and execute the TSL pro- 
gram. After that it resets the hotkey to ano- 
ther string (just F2, to get rid of the help win- 
dow in Quill) and also does that. Once this is 
done, Xchange is sent to sleep in the button 
frame by executing the Button_sleep pro- 
gram of Qpac2. 

| then set up two hotkeys, one ('B)) to call 
the main Sbasic, i.e. job 0, in line 1360 and the 
other to wake an SBasic daughter job. Re- 
member, till now, this program runs in job 0. In 
Line 1380, | do some poking into the system 
variables, to speed up the rate at which the 
keyboard responds to keys typed in (and to 
speed up the repetition rate - that makes it 
much faster to zoom around a line with the 
cursor keys... 

In the last few lines, | set up some window 
sizes with the specially written "“WSET_DEF’ 
keyword, and set the outline for window#0 of 
job 0. Then | send job O to sleep behind a 
button (line 1440) and call up an Sbasic 
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daughter job, which is then my 
main command window. This is 
done to avoid crashing job 0 
whenever | experiment with 
loading some new extension Im 
writing. This way, if | load an ex- 
tension and try it, and it crashes 
the program, it only crashes an 
sBasic daughterjob.. | tell this 
Sbasic to run another small pro- 
gram, which just sets its outline 
and windows to a size | find sui- 
table. This is where the boot pro- 
cess ends, leaving me with a 
single row of buttons and a large 
Basic window. 

The Boot Program also con- 
tains a few procedures which 
weren't mentioned yet, notably 
the ‘verif’ (lines 2140 to 2410) and 
"make_file’ (lines 1810 to 1960) 
procedures. The ‘make_file’ pro- 
cedure makes the large boot_ 
rext file mentioned earlier It just 
loads the extension files into me- 
mory one at the end of the other 
and then SBYTES the whole 
shebang as one single file. The 
"verif’ procedure checks whether 
the file lengths of all of the exten- 
sions files are still correct. If not, it 
shows what file is the culprit and 
it also shows the correct total file 
length for the cumulated file, so 
that | can just change this in the 
"tot_len’ variable. 

Finally, the ‘time’ procedure 
(lines 2790 to 2840) makes a 
date string in the format 
DD.MMYYYY and sets up a hot- 
key that types in ‘Paris, le" and 
that date. It uses the ‘make_ 
date$" and ‘make_all_months$’ 
functions. These are some of my 
Standard functions, used for 
handling dates. They may seem 
a bit cumbersome. The purpose 
is to obtain a string in the 
DDMMYYYY (day month year) 
format - the difficulty lies in the 
MM bit of it. Indeed, the standard 
QL DATES function returns the 
month as a three letter code 
(Jan, Feb etc..). How do you 
convert that into a number (01, 
Q2 etc..J? Simple, you say: just 
make a string with all three let- 
ters of all months: 

“JanFebMarAprMayJunJulAug 
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2190 REPeat 1p% 
2200 READ a$,a 


2220 IF chan%<0: 


2240 ELSE 

2250 b=FLEN(#chan%) 
2260 CLOSE#chan% 
2270 TF boa 


2290 erfl%=1 
2300 END IF 

2310 c=c+b 

2320 END IF 

2330 IF EOF():EXIT lpg 
2340 END REPeat 1p% 


2380 ELSE 

2390 PRINT "all ok!" 

2400 END IF 

2410 END DEFine verif 

2420 : 

2430 DEFine PROCedure constants 


2460 xx=(XLIM-512) /2 
2470  sleep$=CHR$(232) 
2480 bto=28 

2490 END DEFine constants 
2500 : 

2510 DATA "menu_rext", 28216 


2530 DATA 


SepOctNovDec’ and find out, via 
the INSTR function, where in this 
string the month abbreviation 
lies. Then, with the formula 
res=(res+2)/3 (where res was 
the result returned by the INSTR 
function) you get the number of 
the month. This is what the 
"make_date$" function does. 
Pretty straightforward, except 
for one problem: If the user's 
language is not english, the 
month string above is not cor- 
rect: ‘Feb’ in english becomes 
Fev’ in french - and, when 
looking for ‘Fev" in the above 
month string, the INSTR function 
would return O since it’s not in 
there... Thus, first of all, you must 
get the computer itself to gene- 
rate the months string, which will 
be in the language used by the 
user This is achieved with the 
“make _all_month$’ function, 
which, in a loop, gives the DATES 
function some simulated parame- 
ters which successively and 
necessarily lie in all twelve 
months, thus getting the months 
from there... 


2350 IF (erf1%) OR (tot_len>c) 
2360 PRINT "Some errors here!" 
2370 PRINT "True length of combined file should be "jc 


2440 tot_files=35:tot_len=303152 
2450 XLIM=SCR_XLIM: YLIM=SCR_YLIM 


2520 DATA "qmon_bin", 12260, "jmon", 15684, "qpac2", 38430, "qptr_bin" , 9620 


2210 chan%=FOPEN(mydrive$&"booty_"&a$) 


2230 PRINT "error in ";a$;": ";chan%:erf1%=1 


2280 PRINT "error in ";a$;": true length= ";b 


Right, that's the end of my 
Boot Program. It used to contain 
a section for backing up a cer- 
tain number of files. | have to 
take data security pretty seri- 
ously, since | keep accounting 
and other professional data on 
the QL. However, today my main 
machines all run on some kind of 
PC, either with QXL or the laptop 
with QPC. My QL hard disk is 70 
MB long. To back it up, | simply 
copy the "QXLWIN' file onto a 
ZIP cartridge. This takes about 2 
minutes, and at the end of that, | 
have backed up my entire data! 

From there | simply copy it 
onto the other machines, to 
spread it around as much as 
possible, to avoid any data loss. | 
even regularly give the ZIP 
cartridge to a friend for safe 
keeping (he doesn't have a QL 
or similar machine) just in case 
my house and office should burn 
down at the same time with all 
computers in them. See, | told 
you | was paranoid! 


QL foday 


Independent QL Users Group 


Worldwide Membership is by subscription 
only, and offers the following benefits: 
Monthly Newsletter - up to 40 pages 
Massive Software Library - All Free ! 
Free Helpline and Workshops 
Regional Sub-Groups. One near you? 
Advice on Software and Hardware problems 
Subscription just £14 for UK members 
Overseas subscription £17 


Barclaycard: Visa: Access: Mastercard 
* Now in our SIXTEENTH successful year * 


Further details from the Membership Secretary 
Bill Newell 


213 Manor Road oem 
Benfleet aa 
Essex 


SS7 4JD 
Tel. (01268) 754407 
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CueShell 


A powerful Alternative to QPAC II 
Rich Mellor takes a look at an established piece of software 
from highly respected QL software author Albin Hessler. 


QPac Il has been around for a 
long time now and although 
users have become accus- 
tomed to it, in many ways its 
operation can be long winded. 

Although Cueshell replaces 
much of the function of QPac Il, 
it iS really intended to provide 
an alternative to the 
ways of doing things 
under Qpac ||. Cue- 
shell offers some fea- 
tures not available in 
Qpac Il and vice ver- |i} 
Sa. 

Cueshell offers op- 
tions which allow you 
to manage files: 
change mouse, key- 
board and clock para- 
meters; manage Jobs 
and manage Hotkeys. 

The main use of Cueshell is 
as a desktop file manager 
Many users will have used the 
Windows File Manager pro- 
gram, whereby you can select 
files and ‘Drag and Drop’ them 
to the required desination. Cue- 
shell mimics this to some 
extent, whilst overcoming 
some of the problems 
inherent in Drag and Drop 
(for example, where you 
inadvertantly move a 
whole set of files to 
another directory). 

When Cueshell is first 
started up, you will see a 
banner of the various op- 
tions across the top of the 
screen (see Diagram 1). 
You are also presented 
with a window which contains 
a list of all recognised directory 
devices. Selecting one of 
these devices with the mouse 
or keyboard opens a further 
window which contains a 
directory listing of that device. 
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You can select any file by 
HiTting the area in front or be- 
hind the filename - the filename 
is then highlighted. HiTting the 
actual filename just places that 
filename in the Hotkey Stuffer 
Buffer The effect of DO de- 
pends whereabouts on the line 


which contains the filename, 
the pointer is placed. 

lf you DO the area to the left 
of the filename, then the mouse 
pointer changes shape to be- 
come a moving symbol. You 
simply move this pointer onto a 
destination directory (in any of 


the windows which Cueshell 
has opened on screen), or onto 
the two crosses at the bottom 
of the window (which will delete 
the file or sub-directory) - see 
diagram 2. If the destination 
directory is the same as the 


source, it Is presumed that a 
rename is required. 

At all stages, you are asked 
to confirm the action before it 
is carried out (for example, 
when copying a file, you are 
asked whether you wish to 
Update the file or Backup the 
file). 

One of the main advantages 

of Cueshell’s copy and backup 
commands over QPac | is the 
fact that the directory structure 
is maintained. There is no need 
to re-create the sub-di- 
rectories with a separate 
program when you re- 
store your hard disk from 
backups anymore! 
You can view a file by 
simply DOing the area to 
the right of the filename, 
or by selecting the file- 
name and then HiTting 
the magnifying glass 
icon. lf you DO the actual 
filename, this will have 
one of two effects: 

- If the file is the name of a 
sub-directory, another window 
is opened with the directory of 
that sub-directory. 

- If the file is not a sub-direc- 
tory, you are presented with 
the Filelnfo Il options (if availa- 
ble). Otherwise, if the file type 
of the program is re- 
ri cognised (eg. exe- 
“|| cutable, basic ex- 
tension), then Cue- 
Shell will try to run 
that file. If you keep 
the right — hand 
mouse button or 
‘ENTER? key de- 
pressed, you will be 
offered a menu with 
various options rela- 
ting to how that file 
should be called 
(such as providing a Guardian 
window for an executable file). 

You can sort filenames in 
each window by name, type 
and size (in any combination). 
The file size, version number 
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and last date the file was al- 
tered (the update) is always 
displayed for each file. You will 
also notice the medium size 
and free space for each de- 
vice. Unfortunately the amount 
of space taken up by a selec- 
tion of files or a sub-directory is 
not readily available. 

Another useful fea- 
ture of Cueshell is 
the ability to set sme 
file attributes, such 
as making files read 
only, or invisible (see 
Diagram 3). Unfortu- 
nately, these — attri- 
butes are not recog- 
nised by the QL 
operating system 
and therefore the 
files can still be seen 
and deleted from outside Cue- 
shell (although | have been 
unable to test whether the Sys- 
tem and Toolkit lll file attribute 
system will also recognise 
these settings). 

It is also possible from within 
Cueshell to create a new direc- 
tory, duplicate an existing file 
and also to create an empty file 
if you wish. Unlike QPac Il, the 
new directory is not made the 
default data device. 

Cueshell even allows you to 
print out a chosen file and use 
wild cards to some extent. You 
can add or remove an under- 
score to the current directory 


to change the wildcard 


provided by Toolkit ll (similar to 
DDOWN and DUP) and also 
elect to show only those files 
which either have the same 
extension as the selected file 
or those which do not. This 
provides a great deal of flexibi- 


lity. 

Cueshell is however more 
than a file manager. 

You can use it to set key- 
board and mouse configura- 
tions (such as repeat delay and 
wake up speed) as well as 
changing the date and time of 
the clock. 

Cueshell will also provide a 
list of all current Jobs on the 
QL, allowing you to Pick, Re- 
move and change the Priority 
of any Job. This is similar to the 
QPac || Pick, Rjob and Jobs 
Menus. 

Although QPac !I allows you 
to execute a hotkey, Cueshell 


has one main menu which pro- 
vides you with much more con- 
trol over hotkeys {and ALT- 
KEYs). You can execute them 
(the same as pressing them 
from the keyboard) as with 
QPac ll, but you can also 
remove them, as well as 
switching them OFF 
temporarily and back on. 
This can be useful where 
you are using a program 
which clashes —_with 
certain of your standard 
hotkeys. 

Although the effects of 
selecting HIT or DO on 
the various areas of the 
filenames takes some 
| getting used to, Cueshell 
provides a very flexible 
approach to managing 
your system. | would thorough- 
ly recommend this program to 
anyone who finds QPac Il hard 
to get to grips with and are 
looking for something which is 
a little more intuitive. 

Cueshell is available from 
both Jochen Merz Software 
and QBranch for the price of 
£30, but can be included as an 
extra. module when bought 
with QPC for just £20. Oddly 
the Pointer Environment is not 
provided with the program - 
this should be included as a 
matter of course!! [It is included 
now, Jochen] 
| 
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/ Graham Bindon writes: 

A | Your article in QL Today this month 
—————" [Printer Control Codes] gives me 
hope of getting to grips with printer mysteries. | 


was grateful for your help before Christmas and 
thought it might be of interest to relate some of 
my adventures in printing. 

Some advice and discussion on the telephone 
with interested folk helped me and after much 
pondering and with some reluctance | decided on 
an Epson Stylus 740; chiefly because | was as- 
sured it could work with ESC/P2 drivers obtain- 
able from Roy Wood. Also | discovered that up-to- 


date drivers were available for my Acorn Archi- 


medes. 


The latter arrived before the former and included 
an entirely new Print Manager together with 
numerous files of various sorts. Loading the Ma- 
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nager presented no problems but there was 
some difficulty in choosing which printer definition 
to use because there wasn't one specifically for 
the 740. First | tried one for Stylus 800. This pro- 
duced a page of absolutely beautifully printed 
nonsense. The next definition was for “StyCol 
800". This worked extremely well. 

And now came the really interesting bit - would 
the QL produce any intelligible print? In exchange 
for a string of digits supplied by me Roy sent a 
copy of Text87’s Plus4 which | guessed would 
have a better than average chance of producing 
intelligible prints. The same uncertainty obtained 
as to which driver to use, Stylus_P87, Stylus_ 
New_P87 or ESC/P2. The first two, which 
seenmed the obvious ones to use, appeared not 
to work very well. The last produced the goods. 
| shall devote some more time to the Stylus dri- 
vers: it may be that in making the effort to learn 
the use of a new word processor | got something 
horribly wrong. Anyway, Plus4 and the ESC/P2 
driver produce excellent prints. | made a list of all 
the typefaces using for each one the typeface 
named, but one learns to be abstemious in their 
use. 

The results when using Xchange are less certain 
even after configuring the printer with the full 
preamble and post-amble codes. There remains a 
tendency to print part of the document as typed 
but to break off suddenly and print line after line 
of {- C cedilla rather decorative, but very boring 
reading. The only way round this is to print to a 
disk file and then 

OPEN #n, file_name 

OPEN #m, seri 

SPLF #n TO #m 

This works - {almost always anyway) [I wonder if 
it might be worth asking a person knowledge- 
able in serial ports if your port settings in the 
Quill printer driver are correct - this sort of pro- 
blem can sometimes be caused by serial port 
handshaking problems, for example. Can any- 
one offer any advice on this to Graham? - Editor] 
The other thing to do is to import a Quill docu- 
ment into Plus4 and print from there, but | feel that 
is a kind of surrender to irrational forces and 
should be resisted if at all possible. 

The situation with me is that good prints can be 
obtained if | am using proprietary software; | stil 
do not know how to use a driver to print direct 
from programs written by me (if any) or even 
(short of importing again) how to print an SBASIC 
program. But | hope to learn all this (and much 
more) from your forthcoming articles. 

lt occurs to me that necessary aspects of a dri- 
ver need to be included in one's own programs? 
As a matter of interest the Archimedes printer de- 
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finition file print is enclosed. Amongst this is data 
which | had originally assumed would be incorpo- 
rated in a manual accompanying the printer but 
that was before | became aware of the real world. 
(Regrettably, the listing was too long to print 
here - Editor] 

You see how vital to the unknowledgable your ar- 
ticles will be. Please do not shrink from techni- 
Calities but be sure to make a glossary of terms 
& definitions as you go along (the general glos- 
sary you published in QLT was most gratefully stu- 
died). | have just been looking at an abstract from 
a book on Linux: the sheer gibberish in the form 
of unheard of acronyms and systems made it 
unreadable, so | shall not be purchasing the book. 
Please continue your good work -| am sure there 
are many others who will be as grateful as | am. 


Some Early Remarks about Paragraph 
Word Processor v2.01 - lan Pizer 

First there was Quill then came Text87 
and after Prowess appeared we wondered who 
would write a Word Processor running under Pro- 
wess. Well Francois Lanciault has announced 
Paragraph and Wolfgang Lenerz is working on 
Proverb. It might seem odd to have these two 
new word processors soon fully available. We 
have, or will have, a multiple choice of hardware 
QL, AURORA, Q40, MILAN, plus emulators on 
various platforms) so why not a multiple choice of 
word processors. PC and Mac users are similarly 
contronted with WP choices. 

| will not mention the bells and whistles which 
Francois is promising but mostly speak about my 
experience using Paragraph. 

Being Prowess based you get the Font and 
Raster Manager features of Proforma. This means 
easy choice of font, character size, and eventually 
you can include images and diagrams. Presu- 
mably Proverb will have these features too. You 
must use the latest version of Prowess. 

Using Paragraph v. 2.01 | typed in my first one 
page letter Nothing sophisticated but it was a joy 
to use as it is simple to organise the layout and 
you can make and store templates for further use, 
really user friendly. | cannot compare with Quill as | 
have not used it for years. When | use Text87 | 
quite often lose my way and need to seek docu- 
ments to get help. It would seem that all Para- 
graph features are readily avalable from the 
screen and the keyboard. 

With version 2.01 there are naturally still some 
bugs and Francois is very active making improve- 
ments and adding intended features, and features 
requested by users. You need to register to get 
the latest versions as they become available. 

& 
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Volume Listings 


PH. Tanner 


| have always been wary of 
QDOS volumes containing files 
in nested subdirectories. To the 
computing rabbit they appear 
aS an impenetrable morass: an 
impression not helped by all 
this talk of Levels, which only 
heightens, or should | say dee- 
pens, the resemblance to a 
Cambridgeshire fen. 

It is my customary habit on 
receiving a disc so organised 
to put it on one side, unread, to 
be reformatted for other uses. 
But habits are made to be bro- 
ken. | am currently awaiting the 
arrival of my Q40, and | have 
received in advance the sup- 
port disc which contains the 


30000 DEFine PROCedure wd (a$) 


30010 OPEN_OVER #5, ram7_scrat : 


PRINT #5 : CLOSE #5 
30020 REPeat 


OPEN_OVER #6, ram7_dir : 


single ZlPped file QZ.ZIP And 
this iS one item that | am most 
certainly not going to junk. 

However it UNZIPs into a 
plethora of subdirectories. My 
own home-brewed routines for 
file handling rely on directory 
files prepared by WDIR. And 
WDIR lies down and dies when 
presented with a structure like 
this. DDOWN, DLIST et al, are 
all very well, but they operate 
on the default devices, which 
one may not wish to change 
while looking at a non-default 
volume. So something has had 
to be done. 

That something was the 
writing of the attached subrou- 


tine wd (a$), which merges path 
information with the individual 
fle specifications. A simple 
tweak to my procedures allows 
this additional gen to be assi- 
milated. There are no checks 
on a§, and if it is passed to the 
procedure explicitly rather than 
as a variable, then it must have 
the trailing *_", and be enclosed 
between quotes. 

This Is in no way competitive 
with programs like The CAT its 
only aim is to produce a flat file 
such as is shown in the listing. 
The code may be tweaked to 
do other things. For instance, if 
the full file statistics are requi- 
red then WSTAT may be used 
in lieu of WDIR. Similarly, the 
paths could be stored in the 
PATH list, using PTH_ADD. 


STAT #5, a$ : PRINT #5 : WDIR #5, a$: 


ELSE INPUT #5, b$ 


CLOSE #5, #6 : DELete ram7_scrat 


30030 OPEN #5, ram7_scrat : 

30040 REPeat 

30050 IF EOF (#5) THEN EXIT : 

30060 IF ("~»" INSTR b$) >» 1 THEN 
b$ = b$ (1 TO LEN (b$) - 3): PRINT #6, b$; " =>": 
WDIR #6, a$ & b$: PRINT #6: flag = 0: 
ELSE PRINT #6, b$ 

30070 END REPeat : 

30080 IF flag THEN EXIT : 

ELSE RENAME ram7_dir, ram7_scrat 
30090 END REPeat : END DEFine 


flag = 1 


(Readers: please note, this is an SBASIC-specific listing, it does not work on SuperBASIC due to the 
use of unnamed repeat loops and multiple channel number CLOSE statements, for example) 


Listing of ram7_dir, generated by calling "wd ‘rami_"", QZ.ZIP having previously been UNZIPped to 


rami_: 


RAML 
2406/8476 sectors 


QZ => 

QZ_BOOT => 

QZ_BOOT_MSW => 
QZ_BOOT_MSW_----BOOT-MSW--- 
QZ_BOOT_MSW_BOOT 
QZ_BOOT_MSW_QLIB_runtimes 
QZ_BOOT_MSW_RAMDISC_cede 
QZ_BOOT_MSW_RANDOM_code 
QZ_BOOT_MSW_SEARCH2_code 
QZ__BOOT_MSW_Turbo_TK_CODE 


QZ_CLSC => 
QZ_CLSC_UBIK => 
QZ_CLSC_UBIK_CLASSICj_ROM 
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QZ_CLSC_UBIK_CLASSICh_ROM 
QZ_CLSC_UBIK_CLASSICi_ROM 
QZ_CLSC_UBIK_CLASSICk_ROM 


QZ_CLSC_DOC => 


QZ_CLSC_DOC_QL => 


QZ_CLSC_DOC_QL_QL_txt 


QZ_CLSC_DOC_AMG => 
QZ_CLSC_DOC_AMG_Classic_readme 


QZ_CLSC_DOC_Q40 => 
QZ_CLSC_DOC_Q40_KEYTBLDT_TXT 
QZ_CLSC_DOC_Q40_KEYTBLUK_TXT 
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Loops and knots 


Mark Knight's guide to loops in SuperBASIC. 
This article is © copyright Mark Knight 1999 


Two types of loop are available 
in SuperBASIC; many users of 
other BASIC languages may 
not think much of this, since 
most modern BASICs have at 
least three; FOR, REPEAT and 
WHILE or DO loops. Super- 
BASIC FOR loops offer far 
more than equivalents in other 
languages, and so do REPeat 
loops. The REPeat loop in Su- 
perBASIC provides more fea- 
tures and flexibility than both 
DO and REPEAT loops com- 
bined. The first part of this text 
describes FOR loops and their 
use while the second part de- 
scribes REPeat loops. 

An important point to keep in 
mind is that all the behaviour 
described for the SuperBASIC 
examples in this text is that ex- 
pected on a JS system unless 
otherwise specified. Some 
points will cover behaviour un- 
der Turbo or Q-Liberator where 
it differs from that found under 
the JS interpreter and some 
Minerva or SBASIC peculiari- 
ties or extras are covered. If in 
doubt test examples on your 
system. 


The SuperBASIC FOR loop: 
SuperBASIC programmers will 
be familiar with the FOR loop, in 
most cases using it frequently, 
but it is suprising how often it is 
misused, introducing what can 
be exquisitely subtle bugs into 
programs. The SuperBASIC 
FOR loop also possesses spe- 
cial features not found in other 
variants of BASIC, and some of 
these are seldom used even 
though they provide a_pro- 
grammer with extremely useful 
facilities. 

It is intended here to introduce 
the FOR loop from scratch, as- 
suming the reader has written 
SuperBASIC but at a fairly sim- 
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ple level. Even the most ele- 
mentary features of FOR loops 
are explained, as well as the 
most common mistakes made 
by programmers. In addition 
some of the finer points will be 
explained so readers under- 
stand how to make better use 
of these loops in future. Some 
of what is written may seem 
blindingly obvious, but what is 
blindingly obvious to you may 
be new to others, and some of 
the things you may learn from 
this text will be blindingly ob- 
vious to others. Read it all and 
enjoy gloating over what you 
already knew, and try and ap- 
preciate the things you didn't. 
To begin with we deal exclu- 
sively with the long form of 
FOR loops, the kind spanning 
several lines. Short form FOR 
loops are discussed more 
briefly later The basis of a FOR 
loop is usually similar to this 
first example: 

100 FOR Chan=0 TO 2 

110 PAPER#Chan;0 

120 INK#Chan;0 

130 CLS#Chan 

140 BORDER#Chan;1,2 

150 END FOR Chan 

160 STOP 

This will clear the three Super- 
BASIC windows without using 
MODE, a desirable program 
fragment. Another much less 
useful but clear loop is as 
follows: 

100 FOR n=1 TO 40 

110 PRINT n 

120 END FOR n 

130 STOP 

Which will print the numbers 
from 1 to 40. If we want to print 
just the odd numbers we can 
put: 

100 FOR n=1 TO 40 STEP 2 
110 PRINT n 

120 END FOR n 

130 STOP 

and it will work. All Super- 


BASIC FOR loops must have a 
step value, so if the program- 
mer doesn't specify one a step 
of 1 is used. If we want a step 
value that is not a whole num- 
ber this is no problem, thus: 

100 FOR n=1 TO 10 STEP .5 

110 PRINT n 

120 END FOR n 

130 STOP 

This will print 1, 1.5, 2, 2.5 etc. 

Simple SuperBASIC FOR loops 

therefore have three numbers 

Set up at the start: 

1. The starting value. 

2. The ending value. 

3. The step value. 

What the interpreter does with 

these values is simple in es- 

sence. First it loads the starting 
value into a special FOR loop 
variable named in the first 

Statement of the loop. Then it 

runs through the loop, carrying 

out any further program state- 
ments it finds. When the 
matching END FOR is found it 
adds the step value onto the 
variable, chacks it against the 

ending value and makes a 

choice: 

1. If the new value of the vari- 
able is outside the range set 
by the start and end values 
the program closes the FOR 
loop, continuing with any 
program statements after 
the END FOR. 

2. If the new value is within the 
range set by the start and 
end values then the program 
loops back and continues 
from the statement after the 
FOR initiation statement (Line 
110 in the latest example). 

All three values are floating 

point values in standard Super- 

BASIC, though later some 

ways of using integer FOR 

loops will be explained. Integer 
arithmetic is quicker than floa- 
ting point, so in theory integer 

FOR loops should be faster 

though in practice there is of- 

ten a very modest difference 
unless you compile your pro- 
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gram. To obtain a true integer 
FOR we must be using Minerva, 
SBASIC or one of the Super- 
BASIC compilers. 

OK, so far so good; what if we 
wish to count down rather than 
up? This is simple, just make 
the start value higher than the 
end value and set a negative 
step value, thus: 

100 FOR n=100 TO 1 STEP -1 
110 PRINT n 

120 END FOR n 

130 STOP 

All very well so far What 
happens if we specify a range 
that doesn't work for some 
reason? For example this: 

100 FOR n=100 TO 1 

110 PRINT n 

120 END FOR n 

130 STOP 

Because no step is specified 
we get a step of 1, but this is no 
use, this range needs a nega- 
tive step. Well the SuperBASIC 
interpreter steps straight to the 
statement after the END FOR if 
there is one, and in this case 
nothing is printed at all. A rela- 
ted but subtly different effect 
comes from loops like this one 
where the range Is smaller than 
the step value: 

100 FOR n=1 TO 2 STEP 5 
110 PRINT n 

120 END FOR n 

130 STOP 

which will print 1 and finish. 
The loop is set up with n equal 
to 1, then runs through to the 
END FOR; at this point it adds 5 
to the stored value and checks 
to see if it is in range. Naturally 
when 6 is checked against 2 
the statement after the END 
FOR is executed and the pro- 
grams stops. 

Note it is perfectly legitimate to 
use variables for all three 
values, the start value, end 
value and step value thus: 

100 StartValue=1 

110 EndValue=10 

120 StepValue=1.125 

130 FOR n=StartValue TO 
EndValue STEP StepValue 
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140 PRINT n 

150 END FOR n 

160 STOP 

Obviously it is important to 
make sure if you do this that all 
the values work together to 
achieve what you want. Some 
programs may have reasons 
for using SuperBASIC code to 
calculate the start, end and 
step values; debugging such 
code embedded in a large pro- 
gram needs to be approached 
with care. 

Another issue that causes a lot 
of apparently mysterious trou- 
ble debugging SuperBASIC 
programs is the confusion bet- 
ween END FOR and NEXT. For 
example the following is wrong: 
100 FOR n=1 TO 10 

110 PRINT n 

120 NEXT n 

130 STOP 

this should be changed to: 
100 FOR n=1 TO 10 

110 PRINT n 


100 WINDOW 252,202,256,23 
110 WINDOW#2;252,202,4,23 
120 WINDOW#O ;504,32,4,224 
130 FOR Chan=0 TO 2 

140 PAPER#Chan;0 

150 INK#Chan;7 

160  BORDER#Chan;1,2 

170 CLS#Chan 

180 END FOR Chan 

190 FirstShow=0 

200 SecondShow=0 

210 Starting=1 

220 Ending=1000 

230 Stepping=1 

240 TempFile$="rami1_Temp" 
250 FileDev$="flp1_" 

260 Separate$="_BAS" 

270 DELETE TempFile$ 

280 OPEN_NEW#3;TempFile$ 
290 DIR#3;FileDev$ 

300 CLOSE#3 

310 OPEN_IN#3;TempFile$ 


120 END FOR n 

130 STOP 

This is not a matter of style or 
of opinion, the first listing is 
wrong and should be changed. 
In this example there is no 
problem, but when using FOR 
loops in more sophisticated 
ways it is essential to use END 
FOR and NEXT properly or 
bugs will creep in that will be in- 
credibly hard to find if you think 
NEXT and END FOR are equi- 
valent. To understand why, look 
at the following listing, type it 
into your QL, but don’t run it - 
yet. (This is an odd example in 
one way because a REPeat 
loop is actually better in this ap- 
plication than a FOR, but never- 
theless it will make clear the 
correct use of END FOR and 
NEXT). Note the NEXT in line 
500, type this as shown rather 
than using the correct END 
FOR as we want to see how 
this program goes wrong: 


320 FOR ShowLoop=Starting TO Ending STEP Stepping 
330 IF EOF(#3) THEN EXIT ShowLoop 


340 INPUT#3;FileName$ 


350 IF Separate$ INSTR FileName$ THEN 


360 FirstShow=FirstShow+1 


370 PRINT FileName$ 


380 IF FirstShow=20 THEN 


390 PAUSE 
400 FirstShow=0 
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410 END IF 
420 ELSE 


430 SecondShow=SecondShow+1 


440 PRINT#2; FileName$ 


450 IF SecondShow=20 THEN 


460 PAUSE 

470 SecondShow=0 
480 END IF 

490 END IF 


500 NEXT ShowLoop 
510 CLOSE#3 

520 DELETE TempFile$ 
530 PRINT\"Finished" 
540 STOP 


After a careful look at the listing 
it is fairly obvious what the pro- 
gram is designed to do; it 
makes a directory of all the 
files on flp1_ but PRINTs all the 
_BAS files in a separate win- 
dow. Each time either window 
is full the program will pause in 
the manner of a WDIR com- 
mand, and when the end of the 
temporary file on rami_ is 
reached line 330 is supposed 
to EXIT from the FOR loop. 

EXIT can be used to exit earrly 
from any named FOR or 
REPeat loops, and is usually 
used inside an IF structure. 

After the loop in this program 
the temporary file is closed and 
deleted then a message is prin- 
ted to the screen to let the 
user know the program has 
finished. 

Run the program as listed with 
a disk of mixed files in flp1_ and 
see what happens. No mes- 
sage Is printed (line 530) and 
the temporary file remains 
open on rami_ {try DIR rami_) 
because the interpreter never 
exits from the FOR loop in spite 
of line 330. The command line 
cursor flashes as soon as all 
the filenames have been prin- 
ted and lines 510 to 540 are 
skipped. This is one area 
where SBASIC differs from 
SuperBASIC as if you miss out 
line 540 you will get an error 
message at the end of the 
program run. 


QL foday 


The reasons for this are simple: 
when SuperBASIC was de- 
signed the FOR loop was inten- 
ded to be closed at a single 
point by END FOR, so when the 
EXIT statement is reached the 
interpreter starts to look for the 
end of the loop so it can exit 
from it. It searches through all 
the program statements and 
finally reaches line 540 without 
having found an END FOR 
ShowLoop, so the program fini- 
shes. As far as the interpreter 
is concerned, lines 510 to 540 
are inside a half finished FOR 
loop, not outside the loop at all. 
If you simply change line 500 
to 


500 END FOR ShowLoop 

then the program works per- 
fectly, though you may have to 
type CLOSE#3 from the com- 
mand line first if you have run 
the previous version. 

After that you may be left won- 
dering what NEXT is actually 
intended for; well if you add the 
following line to the program 
(as well as making the sugges- 
ted change to line 500) it be- 
comes obvious: 

425 NEXT ShowLoop 

fun the resulting program. 


The FOR loop is short-circuited 
if the file is not one with "_BAS’ 
in it, so only those files are 
shown. It is just as important 
not to use END FOR here as it 
is not to use NEXT in line 500: 


this is because a FOR loop is 
only supposed to be closed in 
one place. So END FOR is in- 
tended to close a FOR loop, 
while NEXT jis intended to 
‘short circuit’ the same loop: 
EXIT can make a premature 
jump to the statement after the 
END FOR. NEXT and EXIT are 
normally used inside an IF or 
SELect structure. 
As well as correcting line 500 
well do things wrongly and 
change line 425 to: 
425 END FOR ShowLoop 
then run the program again, 
several times, each time with a 
different disk in flpi_ and we 
will soon see another problem. 
A filename is printed to #2 at 
the program end even though 
it shouldn't be. This is because 
after the EXIT at line 330 the 
interpreter is looking for the 
close of the FOR loop, and 
when it finds line 425 it allows 
the program to continue from 
the next valid program state- 
ment - in this case line 430. So 
the END FOR at line 500 would 
be redundant as the loop has 
already closed by this point. 
SBASIC is extra helpful and 
gives an error message while 
Turbo will comment and try to 
correct the program, warning 
the user about the action ta- 
ken. Put it right instead of rely- 
ing on Turbo, as the Turbo cor- 
rective action won't work in this 
case anyway. 

Let's sum up what we have 

learned so far: 

1. Every FOR loop has a start 
value, an end value and a 
step value. 

2. Every FOR loop requiring 
termination should have and 
END FOR not a NEXT as the 
termination. 

3. Shortcut to the start of the 
loop with the next FOR value 
is done using NEXT. 

A. Early exit from the loop can 
be done with EXIT. 
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One thing you need to be 
aware of when using NEXT Is 
what happens if the loop value 
has already reached the ending 
value of the loop; NEXT then 
doesn't jump back to the be- 
ginning, but falls through to the 
next statement. If it is likely this 
will cause problems then follow 
the NEXT with an EXIT from 
the same loop. 

Now let's look at another useful 
feature, one which at first 
glance may not seem useful at 
all. Recall that if the step is not 
supplied SuperBASIC uses a 
value of i for the step; in addi- 
tion FOR loops will work with- 
out an ending value, taking it 
from the starting value instead. 
Try this: 

100 FOR n=0 

110 PRINT n 


120 END FOR n 

130 STOP 

This uses i as the step value 
but sets the ending value the 
same as the starting value; na- 
turally the loop runs through 
only once and stops, but it 
does work. So it works, what? 
We could just type this instead: 
100 n=0 

110 PRINT n 

120 STOP 

Why is it useful to have the 
FOR loop work with just a sin- 
gle value? For testing purpo- 
ses, that’s why. If you are de- 
veloping a large complex pro- 
gram with a FOR loop in it you 
can set it up like this for one 
test (note this is not a useful 
example on its own, it repre- 
sents fragments from a larger 
program): 


10100 FOR WeightFactor=StartValue 
10110 REMark some useful code goes in here 


10530 END FOR WeightFactor 


..then for another test change line 10100 to this: 
10100 FOR WeightFactor=EndValue 


and run the test again. 


You finish knowing the loop 
works for the two extreme 
cases, which saves a lot of 
testing time and often helps 
speed up development of large 
programs. Only when the pro- 
gram is believed to be ready 
would we insert the "StartValue 
TO EndValue’ required in line 
10100. 
Another feature of a Super- 
BASIC FOR loop is rarely used, 
though it has even more poten- 
tial than the above example; in 
fact it is an extension of the 
above idea. So far we have 
looked at FOR loops with a 
single start, ending and step 
value, in other words, a single 
range; but SuperBASIC allows 
multiple ranges sepearated by 
commas, thus: 
100 FOR n=1 TO 5, 20 TO 
25, 40 TO 45 
110 PRINT n 
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120 END FOR n 

130 STOP 

try it) You can even mix ran- 

ges with positive and negative 

Step values, like so: 

100 FOR n=1 TO 10, 20 TO 
11 STEP -1 

110 PRINT n 

120 END FOR n 

130 STOP 

An extension of this idea, using 

the fact that we need only spe- 

cify the start value for each 

range, is this: 

100 FOR n=10,20,30,40 

110 PRINT n 

120 END FOR n 

130 STOP 

or even this: 

100 FOR n=1,100,3,47,96, 
17,34, 12 

110 PRINT n 

120 END FOR n 

130 STOP 

or indeed any other organised 

or random list of values! We 


can also mix ranges and single 

values: 

100 FOR n=1,10 TO 20,7,47,3, 
6 TO 25,19,99 TO 79 STEP 
-1 

110 PRINT n, 

120 END FOR n 

130 STOP 

These variations of FOR are 

not possible in any other ver- 

sion of BASIC that | am aware 

of, and certainly were not pos- 

sible in any version of BASIC 

around when the QL was 

launched. Along with using 

END FOR, the unique NEXT and 

the EXIT statement these im- 

plied range and multiple range 

facilities make SuperBASIC 

FOR loops extremely flexible 

and powerful. 


Short form FOR loops: 
The form of FOR that causes a 
lot of trouble is the short form, 
which uses multiple statements 
on a single line to define the 
loop. This is intended for very 
short simple tasks and often 
works well, like this: 
100 FOR n=1 to 20: PRINT 

n, SQRT(n) 
Because the interpreter finds 
more statements on the line 
after the FOR has been defined 
it counts the rest of the line as 
the inside of the loop and no 
END FOR is required. If no 
more statements exist after a 
FOR definition it is assumed to 
be the long form and an END 
FOR on a separate line is nee- 
ded. 
In many early BASIC variants 
the short FOR was the only 
available form; this made com- 
plex FOR loops a nightmare 
mess of multiple statement 
lines, often including IF struc- 
tures, difficult to read and 
therefore to debug. Not only is 
it difficult to debug an over- 
complicated short form FOR 
loop, but it’s also very hard to 
ensure that the interpreter to 
run it will work properly too. 
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Because of this, many short 
form FOR loops that include IF 
or further nested FOR loops 
don’t work properly on the QL. 
Note this doesn't just apply to 
the Sinclair ROMs, like AH, JM, 
JS and MG, it includes Minerva 
(and probably SBASIC) as well. 
Th best known bug is one that 
would never have been dis- 
covered if programmers on the 
QL all did things properly, but 
often they don't. If you use: 
100 FOR Test=1 to 50:GO SUB 
120:PRINT "." 
110 STOP 
120 RETurn 
this will only print one full stop, 
not 50! This is because the GO 
SUB also acts like an END FOR 
and terminates the FOR loop, a 
weird effect certainly not inten- 
ded by the designers of Super 
BASIC. GO SUB should never 
be used in SuperBASIC and 
SBASIC anyway as named 
PROCedures make a program 
far easier to read, but this 
example is just one. Because 
of the various bugs it is best to 
use short form FOR loops only 
for simple tasks and use the 
long form most of the time. 


Minerva and SBASIC extras: 

The Minerva ROM permits inte- 

ger FOR loops, so you can 

type: 

100 FOR Chan%=0 TO 2 

110  PRINT#Chan%;"This is 
channel ";Chan% 

120 END FOR Chan% 

130 STOP 

Not only does this occupy 

slightly less RAM (but more 

storage space when SAVEd) 

than it would without the "%° 

symbols but it runs faster too. 

Note that AH and JM systems 

will let you enter such a pro- 

gram but it will generate errors 

if you try to runit. SBASIC also 

allows integer FOR loops and 

runs them even faster 
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Q-Liberator and Turbo: 

Both Q-Liberator and Turbo 

permit integer FOR loops, 

though you can't always enter 

them into the interpreter (you 

may be using a JS ROM or 

similar) so they can make use 

of compiler directives to 

achieve this. To make a FOR 

loop into an integer loop in 

Q-Liberator on a JS or MG 

ROM system use this: 

100 DEF_INTEGER Chan 

110 FOR Chan=0 TO 2 

120 PRINT#Chan;"This is 
channel #";Chan 

130 END FOR Chan 

140 STOP 

.with Turbo the technique is 

identical but the keyword is 

different: 

100 IMPLICIT% Chan 

110 FOR Chan=0 TO 2 

120 PRINT#Chan;"This is 


100 REPeat Program 
110 Choice=CODE( INKEY$(5) ) 


channel #";Chan 
130 END FOR Chan 


140 STOP 
In both cases, — using 
DEF_INTEGER or IMPLICIT% 


makes any variables listed in 
the parameter list into integers, 
not just those used in FOR 
loops. All kinds of arithmetic 
operations can then be done 
using integers and this can 
offer a considerable speed in- 
crease in some cases. 


The SuperBASIC REPeat loop: 
As with FOR loops Super- 
BASIC offers a form of loop 
considerably more flexible than 
that available in other BASICS. 
Both long and short forms 
exist; as before we look first at 
the long form. The definition of 
the REPeat loop is deceptively 
simple: 


120 IF Choice=32 THEN NEXT Program 
130 BLOCK RND(10 TO 30),RND(10 TO 30),RND(O TO 100),RND(O TO 


100) ,RND(O TO 255) 


140 IF Choice=27 THEN EXIT Program 


150 END REPeat Program 
160 STOP 


The REPeat can be typed as 
REP and the interpreter will add 
the rest of the keyword. The 
loop must be given a name in 
SuperBASIC though SBASIC 
allows unnamed loops. Just as 
with FOR loops EXIT can be 
used to leave the loop at any 
time using any condition or no 
condition at all. Next can also 
be used to jump to the begin- 
ning of the loop at any stage, 


1000 REPeat Program 
1010 BORDER 1,2 
1020 «CLS 

1030 
1040  REPeat GetKey 


so holding down the spacebar 
in the above program will stop 
plotting, pressing the ESCape 
key will exit to the STOP state- 
ment and holding any other key 
down will speed up the plotting. 
It is quite normal to nest 
REPeat loops inside other 
REPeats or FOR loops, and a 
good use of such loops (along 
with the SELect structure) 
might be something like this: 


PRINT\\"ESCape key to exit"\\"F1 to beep"\\'"F2 to redraw menu"; 


1050 Choice=CODE( INKEY$(#0,-1)) 
1060 SELect ON Choice 

1070 =27 

1080 REMark ESCape key pressed 
1090 EXIT Program 


QL foday 


1100 =232 

1110 REMark Fi pressed 
1120 BEEP 10000, 10 
1130 =236 

1140 REMark F2 pressed 
1150 EXIT GetKey 


1160 END SELect 

1170 END REPeat GetKey 
1180 END REPeat Program 
1190 STOP 


In a real program it would not 
be normal to EXIT without 
prompting the user as this 
listing does in line 1090. Note 
that NEXT and EXIT can refer 
to any loop as long as they are 
inside it, so it is fine in the 
above example to exit from 
GetKey or from Program as 
long as the EXIT statement 
used is inside the loop it exits 
from. The fact that it is also in- 
side another loop (or loops) will 
not matter as the EXIT will 
automatically exit from more 
than one loop. 

This also applies to the NEXT 
Statement so line 1150 can be 
changed to: 

1150 NEXT Program 
and no change in the way the 
program works will be seen. 
Although it would only be no- 
ticed in a large complex pro- 
gram using "NEXT Program’ in 
line 1150 would actually work 
Slightly faster than "EXIT Get- 
Key’ does. This is because of 
the precise way in which these 
statements work. 

Using “EXIT GetKey" sets the 


SuperBASIC interpreter search- 
ing through the program for the 
END REPEat so it can exit the 
loop. The next statement found, 
"END REPeat Program’ sets it 
off looking through the pro- 
gram from the start for the 
opening of the REPeat loop. If 
"NEXT Program’ is used instead 
then the first of these searches 
is Skipped; the interpreter only 
has to search for the opening 
"REPeat Program’. 


Short form REPeat loops: 

Just as with FOR, a REPeat 

loop can be defined on a single 

line. If the interpreter finds more 

program statements after a 

REPeat definition no END 

REPeat is needed and the re- 

mainder of the line is treated as 

the inside of the loop. So the 
following works: 

1000 REPeat GetKey: Choice= 
CODE( INKEY$(-1)): IF 
Choicec»0 THEN EXIT 
GetKey 

1010 PRINT Choice, CHR$(Choice) 

Although | know of no bugs in 

the short form of REPeat there 


are numerous bugs in the short 
form of IF so beware of using 
complicated short form REPeat 
loops containing IF structures. 
If you do need to use them test 
carefully and if something 
seems to be going wrong be- 
cause of a short form bug 
change the program to use the 
long form of REPeat. 


SBASIC extras: 

SBASIC allows the following: 
1000 REPeat 

1010 IF INKEY$=CHR$(27) THEN EXIT 
1020 PRINT CHR$(RND(0 T0 255)); 
1030 END REPeat 

iN other words, a REPeat loop 
with no name. This is some- 
thing to be used with great 
caution in my view, if it is used 
at all. First it represents a great 
way to make a program less 
readable; imagine two or three 
nested unnamed REPeat loops! 
A second problem is it makes 
loops that use EXIT and NEXT 
much harder to read and de- 
bug. In my view the program- 
ming effort required to provide 
the unnamed structures in 
SBASIC would have been bet- 
ter spent on something else, 
but if you disagree and wish to 
use them do be extra careful 
with your testing and debug- 
ging. For more details about 
unnamed loops read the 
SBASIC text and examples in 
the SMSQ/E manual. 


Q40 Building 


Tony Firshman 


The first | really contacted with 
the Q40 was when Peter Graf 
emailed me last September He 
developed the Q40 a few 
years ago, but did not have the 
time to make it himself, and 
asked me if | wanted to take it 
on to production. 
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After prevaricating for far too 
long (sorry Peter), | finally deci- 
ded that because parts costs 
were high, | could not market it 
myself at a sensible price after 
adding VAT. A lot of parts had 
already been bought by Peter 
and the VAT could not be re- 
claimed on these. Roy Wood 
though is not VAT registered, 
SO we arrived at a compromise 
- Roy would market it and | 
would manufacture it. 


OK - so we got down to some 
hard searches for good prices. 
Two hundred and forty pounds 
for the 68040 processor - 
whatlll Peter's target price was 
£20. Urmmm. £16 pounds for 
the Timekeeper RAM. £35 for 
the four logic chips etc etc. 
Parts costs were coming out 
more than twice target, even 
without the 68040! 

Looks like it is going to die 
before it even starts. 
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However we got a chance of 
fifty 68040 processors for 
‘only’ £75 each. Roy snapped 
them up. Peter Graf found 
some cheaper ones very soon 
afterwards. Still more than the 
target, but well... We managed 
to get the £75 processors re- 
sold, logic chips and timekee- 
per RAM came out cheaper so 
the project was at last on. 
However to get good prices, 
most parts had to be bought in 
quantity, so we decided to get 
advance firm Q40 orders be- 
fore buying any parts. At last 
earlier this year we had 
enough orders to jump. Still no 
money in the bank, but we 
ordered the initial production 
parts on credit. We held our 
breath as we did not even have 
operating systems anything like 
ready, 

| had this mountain of parts - 
and lots of holes - some 75,000 
of them. "After all those dots 
you will hate the Q40° Peter 
said. 


| started climbing the 


mountain..... 

There were a few hurdles on 
the way, like my programmer 
not liking 16 bit eproms. Only 
one in 4 programmed and there 
were two per board - you can 
work out the chances of a 
working pair That was com- 
pounded by SMSQ_ suffering 
from permanent IRQ7 from the 
/O board and crashing, and 
two out of three ram chips not 
working in the Q40. It was a 
long nervous while before | got 
SMSQ working. 

Along the way, a debug version 
of SMSQ arrived. It was a while 
before | realised how brilliant it 
was. Tony Tebby instructed 
“Connect a VT100 terminal to 
the Q40s serial port. ENTER to 
the first two strings, and then 
type ‘9° “ENTER?” Have you 
guessed yet? 

First string was ‘AT’. A glimmer 
of understanding 

Second was ‘ATDT 0033 Ts 
tel no snipped’ 


Are you there yet? | wasnt 
quite, 

Third was ‘QMON?’ 

.. and there was QMON sitting 
at the start of ROM, so 'G’ 
Started. 

Then | twigged - | could con- 
nect the Q40 to a modem, and 
then power up with Tony Tebby 
sitting with a modem/atpi in ru- 
ral France. He could spend 
hours debugging the Q40 at 
international phone rates. Very 
clever indeed. 

Fortunately for my bank ba- 
lance he decided he could do 
nothing anyway as breakpoints 
cannot be set in the ROM area. 
The Q40 crashed without any 
useful QMON data. Great de- 
bugging tool though, and one 
Tony uses himself locally. The 
machine can be practically 
dead, and certainly have no 
working screen. 

| am now near the summit, first 
orders are being — shipped, 
SMSQ and QDOS Classic work 
pretty well, and | don't hate the 


Q40! 
... Now back to those 
ELEVEN boards that don't work. 


Assembly Language Programming - Part 5 


Norman Dunbar 


The first part of QLIdis is as follows. | have de- 


Init-asm - 


This file holds the source for the 


cided to split the project over a number of asm 
files. This reduces the amount of memory re- 
quired when editing and allows those of us with 
smaller memories (QL that is !) to hopefully 
manage to keep the assembler and editor in 
memory at the same time. 


The files are as follows: 


QLTdis_asm - The main file. This is the only 
filename that you specify to GWASL as this file 
automatically inserts the others at the appro- 
priate places when it is assembled. 


Equates_asm - This file defines a number of 
names for numbers. This makes the code more 
readable and, hopefully, easier to understand and 
less prone to errors. For example, | use the name 
‘green’ for the number 4 - when specifying colours. 
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initialisation routines. These being the ‘once only’ 
and the ‘once per loop. initialisation that is 
required by QLIdis. 


Diss_asm - This file holds the routines that 
disassemble and print the instructions. At present 
these are simply defined as ‘stubs’ which do 
nothing. We are not advanced enough to write 
the full routines. These will be built up as the 
series progresses. 


Utils_asm - This file holds the source code for 
various Sub-routines that are used from various 
places in all the above files. This too will be built 
up as we identify other useful routines. 


Term_asm - This file holds the source for the 
routines used to terminate each loop and those 
which terminate the entire program. 


QL Today 


As | am a very firm believer in commenting 
Source code, there are numerous comments 
provided along the way. These should be fairly 
self explanatory. 


As we are writing a useful QDOS application, we 
must indulge in a little foray into the inner 
workings of QDOS from time to time. Opening 
files or clearing screen channels are all handled 
by QDOS. We need do nothing more than set up 
the correct set of parameters and call the appro- 
priate routine. 


To call QDOS, we can use a TRAP #1, TRAP #2 
or TRAP #3 instruction with the appropriate func- 


tion code in DO - or - calla QDOS Vectored Utility, 


by setting an address register - usually A2 - to 


the contents of a memory location and using JSR 


i ¥ i simple disassembler program for the 68008 instruction set. 


(A2) to call the actual routine. 


derful REFERENCE manual for QDOS. Later on, 


after the tutorial part of this series is over | may _ 


= ¥ your chosen editor is set to convert TAB into a number of spaces (I use 
_ * 4 spaces) AND/OR that you simply type spaces instead of TAB to Line up 
- ¥ columns. This is VERY IMPORTANT. 


(real job & my wife Alison permitting!) cover 
QDOS in more depth. 


At some places in the following code | have | 
this is a place marker 3 
for me and we will be building more code into | 
these places later on - probably in the next issue. — cope sranrs HERE, 


The NOP instruction is a 2 byte 4 clock cycle | 


: ¥* the first instruction executed will be the one at 'start' which is a 
= * 2 byte short branch. 
a) 


placed a NOP instruction - 


‘waste of time’. It does nothing, changes no flags 
and simply serves to use up 4 clock cycles. 


this too will be fully covered later but for now 


cause that is what it does. It will set the Z flag if 
DOL contains zero and reset it otherwise. 


Preparation 


Format a new disc and copy QED, its help file, all 
the GWASL files onto it This is now your master 


disc. You should use this in flpt_. 


your source disc. 


Type the following commands: 

EXEC filpigqed 

When prompted for a filename, type in 
fip2_QLTdis_asm and press ENTER. 


QL loday 


When asked for a workspace size, type in 20K 
and press enter. 


Type the following into the editor Comments are 
indicated by an asterisk in column 1 or after a 
semi-colon after the various instructions. 


At various times, press F3 then type SA to save 
your work. Here then is the first part of 
QLTdis_asm. 


By the way, where a line such as IN 
WINi_SOURCE_QLTDIS_DISS_ASM' appears, 
you should replace the device name with flp2 - 
or wherever you are saving the files to. 


i * Written for QL Today using George Gwilt's GWASL assembler. 
: ¥ Thanks to George for his free donation of this assenbler. 


At this stage in the proceedings you will have to . 
trust me with this because we con't really have | 


the space to cover the full set of TRAP or Vec- i ¥ However, permission is given for unlimited use and abuse by whoever 


: ¥* provided that the original author (me) gets some credit ! 


tored utilities that QDOS provides - suffice to say | 
there are dozens. Jochen will sell you a won- 


¥ 
* QLTdis is copyright - Norman Dunbar 1998/1999 


* nee does not like TAB characters in its source files. Make sure that 


* First part of any job file is a standard QD0S Job header. When EXEC'd 


* QDOS JOB HEADER FORMAT : 
In addition | have used the TSTL DO instruction - | ¥* 6 bytes starting on an even address (most assemblers handle this for 

: * you). These 6 bytes are usually a short branch instruction followed by 
: : : : ¥ 4 bytes of padding (as in the following) or a JMP.L label. 

treat it as a quick version of CMPIL #0,D0 be- | 
+ ¥ A single word holding the size of the job name in bytes. 
: * The actual job's name. 


* The id word $4AFB - this indicates a QD0S job to the system. 


% senecossececseserssesnenseneescennssesesecsesssecsessssssacsesscscesss 
start bra.s qltdis 3 2 bytes short jump 
: del 0 ; 4 bytes padding 
dew = $4afb ; Job identifier must be at location 6 
dew 66 ; 6 bytes in job's name 
de.b 'QLTdis! 3; 6 bytes of job's name 
% seeeenvesseenee cesses ensevessassvsnseeesesneseseseenseeessseeseeceess ss 


| * The job's code proper starts here. This is the 'main control’ part and 


Format a new floppy and place it in flp2_. This is | 


: ¥ defines the program's operation from a top down viewpoint. 
ig 
: ¥ On entry here, the following registers are set up : 


# A6.L = Base address of the Job's header ie, the address of ‘start’. 


* (A6,44.L) = Bottom of the job's dataspace area - the first usable byte. 
* (46,45.1) = Top of job's dataspace area - the last usable byte. 


; ¥ AY = The job's USP (User Stack Pointer} 
¥ 


% There may also be data on the job's stack, but we are ignoring it here 


> * and will discuss it later when examining QDOS. 
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& scesccssssssscecssseecsessessese ressscssssseeneccessassesssccsesseezes= 
qltdis bsr job_init 3 Once only initialisation 

bne.s exit ; Errors - cannot continue 
mainloop bsr loop_init ; Once per disassembly initialisation 

bne.s exit ; Errors - cannot continue 

empi.l #-1,pe_addr(a4)  ; Has user quit ? 

beq.s exit } Yes ~ all done 


Disassemble one instruction 
Print disassembly 

Check ESC or done (2 = carry on) 
Not done - do some more 


dis_loop bsr diss 
ber print 
bsr escape 
beq.s dis_loop 


* User pressed ESC or we are past the stop address. Terminate this loop by 
¥ closing the 'printer' file ete. Then go back and ask the user for more. 
% cos 
main_end 


loop_term 
bra.s main_loop 


; Once per disassembly termination 
; Prepare for another disassembly 


exit bra all_ done ; We are finished. 


¥ This is the end of the 'main control' part of the program. Following on 
* from here are the various routines used by the above. 


¥ sncoosecsssseseeessccsnsssseesesssssssssssesecccecesssseseesssssssssssz 
in winl_source_QLTdis_init_asm 
in winl_source_QLTdis_diss_asm 
in wini_source_QUTdis_term_asm 

% cocssccssccscsssmessesssssssasscresssssssssssscssrsssssssssssze22==== 


¥ And following on from here is the various utility sub-routines that are 
* used from any part of the above code. 


in wini_source_QLTdis_utils_asm 


This is the end of QLdis_asm so save it using F3 
followed by SA and enter We now need to start 
on a new file, so press F3 and this time type 
R/flp2_equates_asm/ and press ENTER - type 
the following into the new file. Don't forget to 
Save as you go. This is EQUATES_ASM. 


* EQUATES_ASM. 
* 


* This file is included by QLTdis_asm and is used to define various 
¥ constants that are used within the source code. This is instead of 
* a whole lot of 'magic' numbers. 

¥ 

* For example, using GREEN instead of 4 is a bit more meaningful. 


% These are offsets from the start of the job's dataspace where working 
* variable are stored. The dataspace ig held at (A4) in the job's code. 


Id for title channel 

Id for main output 

Id for printer channel 

Start address of next instruction 
; Stop after this address 


* These are simply user friendly names instead of numbers for various 
* bits and bobs, colours etc. 


F ecuc Senos eh eats ee eee eee nena bee lel ooo icwcoe eed s: 
black equ 0 ; Colour code for mode 4 black 
red equ 2 j Red 


} Green 


7 ; White 
10 ; Linefeed character 


¥ Constants for use with job control commands. (It doesn't matter if I 
* have two names with the same value ! ) 


P eeceliesee se cee oe a ei 
infinite equ -1 ; Infinite timeout 
me equ -i ; Id for 'this' job 


And here endeth EQUATES_ASM. Save it and 
use the R command to start a new file called 
INIT_ASM, then type in the following code. 


* INITLASM. 
¥ 


¥ This file is included by QLTdis_asm and is used to define various 
¥ initialisation routines and parameters used by them. The jobs main 
* initialisation and each loop initialisation are defined in this file. 


* 1. Set job's dataspace pointers etc 

* 2. Set mode 4 if not already set 

* 3. Open title CON_ channel 

* 4, Open output CON. channel 

® 5. Check errors - cannot continue if detected. 


¥ 
* Returns Z set if all ok. 

¥ seeseecsssssssssesesssssesseceessscsssseeesssseesscssssssssesceescsesss 
job_init adda.l a6,a4 ; A4.L = start of dataspace 

bene a ee nS ee eee ee ee a 


¥ Set mode 4 if not already set. Do not change from TV to monitor or 
¥ vice versa. We must preserve the display type if we reset the mode. 


moveq #-1,d1 ; Read current mode 


; Read current display type 


trap #1 3; Do it 

tst.1 0 ; Did it work ? 

bne.s con_done 5 No, bale out 

tst.b di ; 0 in D1.B = Mode 4 
beq.s  mode_4 ; No need to set mode 4 


moveq  #mt_dmode, a0 


elr.l di ; We need mode 4 
trap #1 3 Set mode 4 (d2 = display type) 
tst.1 40 j Check it 


bne.s con_done ; Bale out if errors detected 


mode_4 lea con_def ai 3 Window definition 
movea.w ut_con,a2 ; Utility to define a window etc 
jer (a2) 3 Do it 
tst.1 40 ; Did it work ok ? 
bne.s  con_done 3 No, exit routine 
move.1 a0,con_id(a4) ; Store console id for title channel 
$e he ee 6 ee 8 be 
¥ Now open the output window underneath the title one. 
Ye Sewegt ae ea ee ee ee 


lea con_def2,al 
movea.w ut_con,a2 


; Output window definition 
; Utility again 


jsr (a2) ; Do it 

tst.1 40 ; Did it work ? 

bne.s  con_done 3 No, exit routine 

move.) a0,con_id2(a4) ; Store console id for output channel 
moveq #0,d0 ; No errors detected 


condone rts 
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Piva oes See aoe Se Be A tN RL ne 
* Definition for title window channel 
Hosier acetate ee ere eee oa a it el a A Ne 
con_def de.b red ; Border colour 

deb 1 3 Border width 

de.b white j Paper/strip colour 

de.b = black 3 Ink colour 

dew = 448 j Width 

dew 24 ; Height 

dew = 32 ; Start position x 

dew 16 ; Start position y 
¥scto setae asec dead fale oo ee a ee et er, 
* Definition for output window channel 
Bosc t we. See see eerie os ou oe Ole nS Nh es As 
con_def2 de.b red ; Border colour 

dc.b } Border width 

de.b = white ; Paper/strip colour 

de.b ~— black 3 Ink colour 

dew = 448 3 Width 

de.w 200 ; Height 

de.w 32 ; X org 

dew = 40 ; Y org 
¥ 


. Clear screen & show headings etc 
*% 2. Ask for start address, validate 
*% 3, Ask for end address, validate 

¥ 4, Ask for ‘printer’ channel 

* 5. Clear screen 

* 6. Show details 


% Returns Z set if no errors. 
* If user quits, sets pe_addr(a4) = -1 


movea.l con_id2(a4) a0 
bsr els 


get_start lea start_addr , al 
bsr prompt 
bsr input 
tst.w dl 
bne.s —- got_start 
move.1  #-1,pe_addr(a4) 
bra init_done 


got_start nop 


get_end lea end_addr at 
bsr prompt 
bsr input 
tst.wo di 
bne.s — got_end 
move.l  #$ffffffff ,pe_end(a4 
bra get_printer 


get_printer lea print_dev,al 
bsr prompt 
bsr input 
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j output console id 

; Clear screen 

3 Our prompt 

3 Print it 

3 Wait for user to type something 
; Anything typed ? 

; User typed something 


; Store a 'user quit! address 
; Finished 


3 Print it 

3 Wait for user input 
j Anything typed ? 

; User typed something 


) 3 Very high end address 
3 Go for the printer name next 


; Wait for user input 


lea pr_dev,aQ 
move.w di, (a0)+ 
subq.w #1, 


; Storage for printer name 
; Save filename length 
3 Adjust for dbra loop 


Rise coe seeks eee a soc eee tet see oe eeeczecoc eels 
* At this point : 
x 


* ALL = first character in input buffer for printer name 
¥ AQ.L = first character position in pr_dev buffer 
* D1.W = Number of character in filename minus 1 


Ran aencdewnsi news eto Rc Sel eS ee Pk oe 
move_prname move.b (A1)+,(A0)+ ; Move a single character 
dbra di ,move_prname j And the rest 
Retest cos SOS ee ees Ee oe ete A Se Meh 
* Clear sereen again - in case user typed silly stuff ! 
Roshel ess {See se eek ee cee eo ak oe ones ent 
movea.1 con_id2(a4) ,a0 ; Output console id 
bsr cls ; Clear screen 
Wee cesna sew aweeseei eek a eat eccen enc eewsed, 
¥ Show addresses and filenames again prior to start. 
Maes ee A a er eee eta ek eee ids Ska 
show_start lea start_addr, al ; Our prompt 
move.w (at),-(a7) ; Stack string length 
move.w #14, (a1) ; Reduce string length 
bsr prompt ; Print it 
lea start_addr, al ; Al is trashed by 'prompt! 
move.w (a7)+,(at) ; Restore original length 
Wreath ete Soe Se asc eaeteot ng bewe patcaneeukasenceaenetenceecsdenurels 


nop 
bsr line_feed ; Print a new line 
show_end lea end_addr , al ; Our prompt 

(ai) ,-(a7) ; Save current string size 
#12, (al) ; New ‘pretend’ length 
prompt ; Print it 
end_addr, al ; Al is trashed remember 
(a7)+, (al) ; Restore original length 


line_feed j Print a new line 


show_prname lea print_dev, al ; Our prompt 
move.w (al),-(a7) ; Store original string length 
move.w  #15,(al) ; New length 
bsr prompt 3 Print it 
lea print_dev, al 3 Prompt trashes Al 
move.w (a7)+,(ai) ; Restore original length 
lea pr_dev,ai ; Printer device name 
bsr prompt ; Print printer filename 
bsr line_feed ; And a final linefeed 
init_done moveq  #0,d0 ; No errors 
rts 
start_addr dew 37 
dc.b ‘Start address (ENTER only to quit) : ' 
end_addr dew 39 
dc.b = 'End address (ENTER only = until ESC) : ' 
print.dev dew 32 
de.b "Printer device (ENTER = none) : ' 
pr_dev ds.w 26 ; 52 bytes for max file name & length 


And this is the end of INT_ASM. Save it and 
re-enter the editor with another new file. This 
time it is a short one called DISS_ASM. Type the 
following into it. 
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& sssesssssesssensssseasssseenessssse2cesssssesssseesesssssssssss22seze22 & scosccccssesssscessccssssccscsseecccsseesccsscsssssscssssessseessssesss 
* DISS_ASM. * UTILS_ASM 
% ¥ 


% This file is included by QLTdis_asm and is used to define the main 

* disassembly and printing routines. 

* {initialisation and each loop initialisation are defined in this file. 
* This file may be further sub-divided as each routine for the various 
* instruction types are coded - this depends upon the size of said 

* routines. 


* This file is included by QLTdis_asm and defines a large number of sub 
* routines that are called from various parts of the program. These are 
¥ called more tahn once and so have been defined as sub-routines to avoid 
% duplicating code. In addition, any errors will only need to be fixed 

* here once. 


* 1. Is new current address »= stop address ? 


* 2. Has ESC been pressed ? 
% 


* Returns Z set if not done and if ESC not pressed. 


* 1, Save current address (start of the new instruction) 
* 2. Decode current word - and any subsequent words of data etc 
* 3. Fill buffers ete 


* 
$f cubeees sete eects eee eee scence eeeda eu beeeasedue coe 
: Returns 2 set if any errors. escape moveq #1, d0 3 ESC pressed 
spend Soe seteevssdesbe casa eecul sacha oe eee seers a 
diss moveq  #0,d0 ; No errors 


5p Bes ; 
Se ea aa td FS eh eta, | Min Clete pe 

¥ 1. Print current address i : ae Ei ee tata hetoethn ee fied ans Se el te sh tees eet ee 
* 2. Print hex data i en pe a lee a a ent kf 4) oat eben ont eae Pee Ee 
¥ 3, print instruction headings  movea.1 con_id(a4),a0 ; Title channel id 

reel bsr.s els ; Clear screen 

¥ Returns Z set if no errors. lea mes_title,al ; Title string 

# asec ctesewedcessstemdesestet Weesszs seca dest esas ceere aeacaves ons bsr.s prompt ; Print title string 

print moveq 40,40 ; No errors rts 


rts 
mes_title de.w 55 


de.b 'QLTdis - copyright Norman Dunbar 1998/1999! ,linefeed 


As you can see, that was quite short. The next Gees Metal ay 


file is called TERM_ASM and it too is quite short. 


Type this in : con't forget to use the R command Bs Pg Oe EG ee 


to create it! Sei ear ce he ae i ola te ee ad, 


els noveq #sdclear,d0 3 CLS 
% TERM_ASM. i moveq #infinite,d3 ; Infinite timeout 
* i trap #3 ; CLS title window 
* This file is included by QLTdis_asm and is used to define various rts 


* termination routines and any parameters used by them. The jobs main 
* termination and each loop's termination are defined in this file. 


% scerssssnesssssssenesestescesssesarsssseeeesss2eezessssseenes222e222222 ¥ 1. Print the string at (Ai) to the channel in AO. 
% Terminate main loop : * 
& sesserecesesesssssssescessesscssseesscsssssesesessssssssessecesasseezce ¥Z set if all ok, unset if not. 
* 1. Close ‘printer' file boOM seeessssesecssesccsssssececsseesssssseeescsssesscassesssssseescsssseess 
* 2, Tidy addresses ete in storage ready for next time (if required) © prompt novea.w ut_mtext,a2 ; Print a string utility 
i jsr (a2) ; Print it 
loop.term moveq  #0,d0 ; No errors tst.1 a0 ; Check for errors 
rts : rts 
He Sessstersssscsestassssssresssssssscsssssssssssxsssesssssssersssseesese= Pi betschen secs oupcete so ea pets owe eau ose eae anes oleot ewes 
: All done * Line_Feed : 
a & ssosesscsscsescsssscocssssasscssssssscsrsssscncssesscscssesssccssssses 
* 1. Remove the current job - forcibly %1. Print a linefeed to the channel in AQ 
* 2. Loop around just in case something went wrong and the job was not fog Pere scr apres ee 
Ne abil Srna EO POPU Se Sea Ne Ria 
all.done moveq #mt_frjob,d0 ; Force Remove a job moven.1 dt/at,-(a7) ; Baie any registers reqd 
novey = tne,di : Bie eurrenk Joe : moveq fio_sbyte,d0 ; Send one byte to channel 
myers aoe 5 ANY tive COME UO Send te eiper asic moveq #linefeed,dl ; Byte to send = linefeed 
trap ; KiLL this job, its channels and its mit Finiitte 3 pea = 
’ ? 
nenory trap 3 3 Do it 
bra.s all done ; Should never get here - sanity check! a ens dt/al : pam es 
. ’ 
ris 


And finally, use F3 and R again to create UTILS_ASM 
- this will be quite a large file. Type the following into 
it, Don't forget to save as you go along. 
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¥ 1. Wait for user input from the channel id in AQ. 
x 


* Returns the input length (not counting the ENTER character) in D1.W 
* Returns the address of the first character in the buffer in Al. 

* Preserves the channel id in A0.L 

* 2 set if all ok, unset if not. 


; Our buffer address plus 2 

; Save it on the stack 

; Input some bytes (inc linefeed) 
; Buffer size maximum 

; Inifinite timeout 


input lea 
move. at,-(a7) 
moveq #io_fline,d0 
moveq #60,d2 
moveq #infinite,d3 
trap = #3 


buffer+2,al 


move.1 (a7)+,al 
subq.w #1,d1 
move.w d1,-2(al) 
tst.1 a0 

rts 


; Restore buffer pointer 

; Subtract the linefeed character 
; Store length in buffer 

; Did it all work ? 


buffer ds.w = 16 ; 60 chars for input plus 1 word for size. 


And this is finally the end. You should now have 6 
individual files. 


Assembie it 


So we have our source ready to assemble. Try 
this then: 


EXEC flpi_gwasl_bin 


When prompted press 1 (one) to start assembling. 
When prompted for a_ filename, type 
FLP2_QLIdis_ASM and press ENTER. (If FLP1_ or 
something different is printed, simply rub it out 
and type the correct device use CONFIG to set 
the default device name. CONFIG is available on 
most Pointer Environment pograms if not on the 
cover disc). 


Assembling will now start and PASS 1 will be 
printed followed by PASS 2. The options to 
assemble or quit will then be shown. What 
happened? 


On FLP2 you wil now have a file called 
QLIdis_LST which you MUST load into the editor 
- F3 /flo2_altdis_Ist/ - so that you can check for 
errors. If there are errors in your code, check that 
it matches mine exactly and change it if not com- 
ments don't make any difference so don't worry 
about them. 


Keep editing and assembling until you get no 
errors. You now are able to run your first as- 
sembler program. 


EXEC flp2_QLIdis_bin and be amazed !! 
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| QUdis 


_ The screen shows a ‘split’ window with the 
_ copyright message and program title at the top. 
_ Under this is a prompt asking for a ‘Start 
_ Address’ - type ENTER only to quit or type 
_ anthing you like. At this stage the program reads 
- what you typed but does nothing with it. 


You are now prompted for an end address, as 
_ above, type anything and press ENTER. Alter- 
_ natively, just press ENTER. 


Finally, you are asked for a ‘printer’ file. Type in 
» anything here as well and press enter 


And you are now back at the ‘Start Address’ 
prompt. Press ENTER alone to quit from the 
program. 


What is going on? 


The program, as it stands, is a functional one 
which does nothing. The start addresses etc you 
type in are not acted upon. The program simu- 
lates the once only initialisation stage - the split 
window shows this. Then the loop initialisation 
Stage - printing the titles and asking for ad- 
dresses etc. 


What you don't see Is the next stage where the 
parameters you gave it are displayed (but not the 
addresses - that comes later). You don't see it 
because the main loop does nothing and then 
simulates ESC being pressed to quit from the 
main loop. The loop initialisation is then run again 
- this does a CLS and this is why you don't see 
the output. 


This will continue until you press ENTER only for 
the start address. 


Congratulations on getting this far! 


By the way, the code above was imported 
directly from my source files. These were as- 
sembled using GWASL and have been through 
exaustive testing using QMON2 to monitor what 
was going wrong - yes there were a few errors - 
so it should be correct. If your code refuses to 
co-operate then Im afraid it will probably be 
down to a typing error on your part - sorry! 

& 


Al 


Using ZIP and UNZIP 


Dilwyn Jones 

Unless you have the Archivers Control Panel, 
trying to learn to use the ZIP and UNZIP pro- 
grams from a BASIC command can be daunting, 
thanks to the sheer number of options availa- 
ble. Dilwyn explains some basic commands of 
ZIP and UNZIP 


These simple commands will achieve the most 
important tasks, namely zipping up all files on a 
disk into one large compressed archive files, and 
that of decompressing an archive file. 

To zip the entire content of a disk in FLP1_ into a 
file called SMALL_zip on FLP2_ (assuming the ZIP 
program itself is also on FLP2_) 

EX FLP2_ZIP;'-9 FLP2_SMALL_ZIP FLP1_*! 


The FLPi_* at the end just means all files on 
FLPL_. If you prefer to supply a list of files instead, 
this is easy too: 

EX FLP2_ZIP;'-9 FLP2_SMALL_ZIP FLP1_BOOT 
FLP1_EXAMPLE_TXT FLP1_EXAMPLE_FXE'! 


Note that there should be a space between the 

-Q' (which tells ZIP io go for maximum com- 

pression rather than speed), and a space before 

the FLP2_ and FLP1. parts at the end, but NOT 

before the * 

The -9 part is optional - compression will be 

slightly faster if this is omitted, but the resultant 

files will be slightly larger as a result. 

To decompress the files, you need to use the 

UNZIP program. This extracts files from the archive 

and decompresses them to the drive named in the 

DATA_USE command. 

For example, to decompress all files from 

FLP1_SMALL.ZIP to a disk in FLP2_, assuming 

UNZIP is also on FLPI_: 

dg$ = DATAD$ : REMark remember what it 
was before 

DATA_LUSE FLP2_ 

EX FLP1_UNZIP; 'FLP1_SMALL_ZIP! 

DATA_USE d$ : REMark restore default drive 


The last example extracted all files from the ar- 
chive called SMALL_zip. Occasionally, you may 
wish to extract just a single file from an archive, 
9. an instructions file, or one file to replace a 
damaged copy on your working disk. This can be 
done simply by adding the name of the file or files 
at the end of the command. 

EX FLP1_UNZIP; 'FLP1_SMALL_ZIP manual_txt'! 
lf you'd just like to have a look at a list of files in 
the archive, this can be done using the ‘I switch 
(N.B. lower case letter L not number 1): 

EX FLP1_UNZIP;'-1 FLPi SMALL ZIP! 
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These programs use a system of ‘wildcards’ or 
vague names when referring to filenames. By 
using the character '?' in a filename, you can be 
vague about a spelling or any single character you 
were unsure of. By using the * character any text 
will match up fo it, eg. B* could match up all files 
which had filenames ending with ‘B, or 
FLP2_*_DOC would match up any DOC files on 
FLP2_. This is rather hard to get used to at first, 
but can be a powerful facility and is quite com- 
monly used on other computers. 

There is a simple method getting a help screen up 
in these programs, which will list a short text file 
showing the main commands and their useage. If 
you simply type in EX FLP1_ZIP or EX FLP1_UNZIP 
the program has no commands to tell it what to 
do. So it shows you a help text instead. 


Type “Zip or 

2ip 2.2 (November 3rd 1997). Useige: 
zip T-options] [-b path] [-t mmddyyyy) [+n suffixes] Ezipfile list) fxi list] 
: The default action is te add or replace zipfile entries from list, uhich 
j can include the special name - to compress standard input. 
: If zipfile and list are omitted, zip compresses stdin to stdout. 
i o-f freshen: only changed files -u update: only changed on neu files 
: -d delete entries in zipfile -n move into zipfile (delete files) 
: -R- recurse into directories -j junk (don‘t record) directory names 
) -@ store only -( convert LF to CRLF (-(U CR LF to LF) 


: -1 compress faster -9 compress better 
* 7q quiet operation ~y verbose operation/print version infa 
i -c add one-line comments -z add zipfile comment 


5 -@ read names from stdin -0 
: ox exclude the following notes i 
i oF fix zipfile CFF try harder) -0 
2 A adjust a Beater exe -J 
i -T test zipfile integrity -K 
; 7@ encrypt “fi 
Press: a dick ie ot 


moke zipfile os old as latest entry 
include only the following names 
do not add directory entries 

junk zipfile prefix (unzipsfx) 
exclude extra file attributes 

don't compress these suffixes 


One very useful ZIP. ee can ne: 10 ve a 
problematical zipped file - | have had to do this to 
recover a zip file created by an old version of QL 
zip, which | was unable to access. Using the -F or 
-FF option, ZIP fixed the problem well enough for 
the files to be accessible. Try -F first; the -FF option 
is a ‘try harder’ one for when the simpler option 
fails. Where possible, always keep copies of these 
files in case something goes wrong again and you 
end up worse off than before! 

EX FLP1_ZIP;'-F FLP1_PROBLEM_ZIP' 


Both ZIP and UNZIP QDOS versions are configu- 
rable with the standard QL Config or MenuConfig 
programs; you can set defaults such as the length 
of time it stays on screen to display results after 
doing something. 

The ZIP and UNZIP programs are free software 
which you can get from the usual sources of QL 
PD and Freeware software, or they can be down- 
loaded from Jonathan Hudson's Dead Letter Drop 
Web site: 

http://www.jrhudson.demon.co.uk 

Please try to make sure you use the Info-Group 
Zip and Unzip versions, which are still maintained 


and ‘official’ this is the version you'll get from 
Jonathan's Web site 
@ 
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Adventures on the QL 
Part 2 -Nemesis 


Darren Branagh continues his look at adventure games available 
for the QL user, with a review of Nemesis, from RWAP Software. 


fist for years and is threatening 
to extend his grip across the 
entire galaxy - unless of course 
you can help, 
by seeking 
out NEMESIS 
‘| and destroy- 
~.{ ing him. 
And help you 
~ | must, but it 
“| won't be 
easy - at his 
‘| disposal NE- 
| MESIS — has 
.| hoards — of 
-| troops, _ killer 
=| robots, carni- 
—! vorous crea- 


You sit at the helm of a small 
Landing pod that transported 
you down to the planet's sur- 


cu eae 


although you know that trouble 
is near and your death is cer- 
tain unless you change direc- 
tion, you stil end up heading 
that way and getting killed! | 
tried the game on several 
platforms - It worked without 
difficulty on JS and JM rom 
QL's, both on Trump Card and 
Gold Card, and with some 
gentle persuasion on the QXL 
and QPC both on my Desktop 
Pentium and Laptop systems. 

The problem with QXL/QPC 
systems (and all SMSQ/E sys- 
tems | should think) arises with 
the file TC on the disk, which is 
called by the BOOT Line 26 
gives an error "misplaced END 
DEFine’ - this is easily remedied 
by splitting the preceding 
DEFine PROCedure line in two 
separate statements after the 
first semi-colon, onto two lines 
instead (and renumbering the 
program). The game works 


face from your orbiting ship. 


You are dressed in leather littering the 
trousers and jacket, leather planet's sur- 
boots and a light cotton shirt... face. 

So begins NEMESIS, the se- 

cond text adventure game to GAMEPLAY 
receive our attention in this Aslvecome 
series of reviews. Unlike THE fo expect 
PRAWN, this game is a much = from ___ Rich 
more serious affair The plot is  Mellor's soft- 
simple you are a butch hero ware at this 
sent to a distant planet to aid = stage, game- 
the long suffering inhabitants play ts surpri- 
from their tyrannical overlord, singly good. 
called NEMESIS. He has been = However it is 


ruling this planet with an iron 


tures, and pies of death traps 


difficult, even 


moug? Ie erfectly on all systems there- 
EEEEEELELE EEE E LED PEELE ELLE EERE LED EEE EEET game gives : y k a eerie 
: +1 you plenty after - Thanks to Di wyn Jones 
lot warning if for the cure to this one, caught 
you sen in his house while | started this 
heading into ‘eviewh 
a dangerous Error reporting is quite good 
afea with although | did find a few loca- 
Satanic tions where my commands 
like ‘you Were ignored and a ‘| dont 
hear noises understand” message or similar 
and figures is not displayed. This is a minor 
etart 0 detail and didn't annoy me that 
cies: mover ihe much at all. 
rey eC ee ae 2 a 2 A 2 a A A aD reeperys 3 
shadows 
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Also, there are a couple of 
good features | hadn't seen 
before, as in THE 
PRAWN. These are 
two new commands, 
namely PON © and 
POFF These are very 
useful, and are used 
to control output to 
the printer - PON 
switches it on, POFF 
stops it | enjoy 
making maps of ad- 
venture games, so | 
can find my way back 
to locations quickly, 
and get to various 
items | need at 
various points. This made this 
SO much easier printing out 
details as | proceeded. 

Another nice command is SAY 
This allows you to interact and 
talk to various beings in the 
game to futher your goal, and 
have a conversation with them. 


THE MANUAL 

The manual for the game is 
distributed on the disk, as a 
Quill_doc file. It is quite compre- 
hensive, although concise at 
only 3 pages or so - a blessing 
for those of you (like me) who 
hate reading manuals. Although 
short, it tells you all you need 
to know - including the sce- 
nario, loading instructions, a 
few playing hints and tips and a 
general list of commands. 


DISPLAY AND DESCRIPTIONS 
The display is clear and read- 
able, similar to the default 
QUILL colouring of green text 
on a black background. | liked 
the way THE PRAWN used 
multi coloured text, and feel 
that NEMESIS could have bene- 
fitted from the same treatment, 
if only to "jazz’ it up a little. 

The text descriptions of your 
locale are first rate brilliant. 
They are moody and grim, and 
get your heart racing at just the 
right moments especially 


AG. 


when danger !s near They are 
just enough to allow your ima- 


gination to run riot, and this is 
the primary objective of every 
good adventure game. 


SHOULD | BUY IT? 

Yes, you should! NEMESIS is 
just as enjoyable as THE 
PRAWN, this one being 
more engrossing for its 
gaming appeal and hero 
aspect than the humour 
Contact Rich and get a 
copy today. | haven't 
caught up with NEMESIS 
himself yet, but god help 
him when | do! 


[Nemesis was originally 
written by Paul Brittain 
and John Lovett, and 
originally published by 
Talent. Now re-released in an 
updated version by RWAP 
Software, Nemesis Mk If costs 
Just £10.00] 


Printer Control Codes - a 
dreaded Subject? - Part 2 


Dilwyn Jones 


Where can | get a list of 


Control for my Printer? 
Most printer manufacturers in- 
clude a list of control codes 
somewhere in the printer's 
manual. Or perhaps that ought 
to read ‘used to include’, as the 
modern trend is not to include 
user programming information 
any more. Some printer ma- 
nuals include them, others 
don't. The reason for this is that 
with operating systems on cer- 
tain other computers, the dri 
vers take care of all that for 
you, and in theory you need 
not dabble with the command 
set, so you don't need to know 
them. Certainly, if you ring a 
printer company’s helpline for 
programming information you 
tend to get blank looks and 
gasps of amazement that you'd 
actually want to tackle pro- 
gramming for printers. 


In practice, you can get pro- 
grammers’ reference manuals 
from the main printer compa- 
nies, aS long as you know 
where to call. They tend to be 
expensive publications (often 
20 to 30 pounds in this coun- 
try), and my own experience 
tells me that although the prin- 
ter manuals refer to these pro- 
gramming tomes, it can actually 
be good fun trying to find 
someone within these compa- 
nies who knows (a) what they 
are, and (b) how to supply you 
with one. In trying to get hold of 
such a book for one of my prin- 
iers, | waS given a major run- 
around, being told to ring seve- 
ral numbers in turn, none of 
whom knew what | was on 
about and several trying to sell 
me a replacement manual in- 
Stead (it just goes to show, you 
can actually get replacement 
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manuals for those second 
hand printers whose greedy or 
thoughtless owners decided to 
keep the manuals!) until | even- 
tually spoke to a very thought- 
ful and knowledgeable lady 
who listened sympathetically to 
my story and eventually sent 
me a complimentary copy, as 
by then | must have run up the 
book's value in telephone calls. 
Hewlett Packard, for example, 
have an extra approach. They 
operate a fax on demand ser- 
vice where you can Call a ser- 
vice called HP First (UK. fax 
number: 0800-960271) which 
will fax you pages of informa- 
tion about the products, which 
can include pages of program- 
ming information. Experience 
tells me you need plenty of 
time, and a new roll of paper in 
your fax machine, but at least 
it's a cheap and no fuss me- 
thod of getting hold of infor- 
mation as long as you have 
access to a tone dialling fax 
machine {i.€. most modern 
types). You call the number 
listen to the voice prompts, and 
press the number key corres- 
ponding to your choice from 
the list offered. The first time, 
you ask for a contents list, then 
the second time you choose 
the specific information you 
want faxed to you. It’s such a 
good service (when not en- 
gaged) that | think there must 
be a QL somewhere in HP con- 
trolling it! Hewlett Packard also 
have a Web site where you can 
gain additional printer informa- 
tion, the home page address is 
http://www.hp.com. In _ fact, 
these days, many companies 
have Web sites and if you have 
a modem and Web access it 
can be quite helpful to visit 
these Web sites. Most printer 
manufacturers also publish their 
address and telephone number 
and Web site address in their 
manuals too. 
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How do | send these 
commands to the 
printer? 

The examples I'll give are all 
using BASIC, but the principle 
is the same for most langua- 
ges. 

Before we can send com- 
mands to the printer we need 
to open a channel to the port 
to which the printer is connec- 
ted. A channel is simply a 
numbered pathway for infor- 
mation to travel from one part 
of the computer to another For 
example, commands you type 
into BASIC on the QL normally 
appear in channel 0 (#0) at the 
bottom of the screen. Channel 
numbers 0, 1 and 2 are used for 
BASIC’s screen display nor- 
mally. We can open another 
numbered channel to the prin- 
ter Assuming you have your 
printer connected to serial port 
number 1, you could type in: 
OPEN #3,SER1 

(the symbol before the number 
3 is known as a HASH 
character). 

lf your printer is connected to a 
parallel port on a Super Gold 
Card, for example, you could 
use: 

OPEN #3,PAR 

You don't have to use #3, you 
can use any reasonable value, 
but it is customary to use the 
lowest available channel num- 
ber to Save space in the chan- 
nel table inside the computer 
Other channels may be open 
to files, or other windows on 
the screen, at the same time as 
the printer channel is open, but 
you should always close such 
a channel when you have 
finished with it: 

CLOSE #3 

While a channel is still open, 
you can send command values 
to it as follows. Suppose we 
wanted to switch to italic text 
printing: 

PRINT #3, CHR$(27) ;CHR$(52); 


Note how each number is 
followed by a semi-colon. This 
helps prevent the PRINT com- 
mand from messing things up 
by sending newline characters 
where they are not wanted, for 
example. 

If you have Toolkit 2 active on 
your system, or you are using 
SMSQ, you can also use the 
BPUT command to send 
values directly, without having 
to use the CHR$ function. This 
time, we don't have to worry 
about semi-colons: 

BPUT #3,27,52 

If you remember what we dis- 
cussed about CHR$ and 
CODE, we could also write the 
commands like this, where we 
know what value represents 
which character: 

PRINT #3,CHR$(27);'4'; 

or 

BPUT #3,27,CODE("4") 

In certain contexts, any one of 
the methods of writing the 
command may appear more 
meaningful, but it is largely 
down to you as they all do the 
same job in the end. 

In general, if you can switch 
something on, you may also 
need to switch it off So many 
commands have two sets of 
values, with one of the num- 
bers differing slightly depend- 
ing on which option you want. 
In the Epson command set, for 
example, it is common for the 
last of the numbers in a given 
printer command to vary its 
value depending on which 
option you want to select. So if 
yOu are sending a command to 
change colours on a colour 
printer you may find that the 
last value may be any of 8 (if it 
has 8 colours available!), so 
black might be 0, while yellow 
may be 6 (the actual colour 
numbers on a given printer 
may not match exactly with the 
QL number). This may be the 
same for selecting fonts on a 
printer which has a choice of 
them built in. 
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Gold Card / Atari / QXL Version 


Various Atari versions : call for details 


QPC 


| £ 90.00 (£ 70.00 SMSQ/E Owners) | 


With CUESHELL Module : 


| £ 110.00 (£ 90.00 SMSQ/E Owners} 


We can now supply colour laptops with OPC already 
installed | The systems are secondhand and vary 
considerably so you will need to call for details but 
a typical starting price for a 486 DX 70 Toshiba with 
350 Meg hard disk and 12 Ram complete with QPC 
and Carrying case is 


@) Branch N ew S\ £ 500.00 (+postage ) 


The Q 40 is now slowly” being! releaged Pe the first 
few customers have all expressed ~ : great satisfaction with 
it in spite of the fact, that. the principle ‘operating 
system, SMSQ/E, is still lacking some elemeyts and is 
still under. construction. 

We are now at v 2.92 of .. SMSQ/E*%,for this and it 


Shop hours : 
| Mon - Fri 
16am - 6pm 
Wed /Sat | 
} 10am - 2pm 


Standard Q 40 package consists of ? 
Motherboard | 16Mb RAM | I/O card 


@) Prices 


Q 40 with QDOS Classic O/S ££ 330.00 


now supports most QL progtams, althengh there are Q 40 with SMSQ/E O/S £360.00 
still a a problems to be solved. Check, it out at a Extra 16Mb RAM £ 28.00 
show when you have the cha#éé. Floppy Disk Drive £ 23.00 
Francois Taniciault has authorised us to collect royalties Hard Disk Drive P.O.A. 
and register copies of Paragraph. We suggest that if inT, Case (New) £ 45.00 
you are interested in this program you first get the vanhaihacmenaga pac : 
demo version from us and then return the disk and In Desktop Case (2nd User} ££. 20.00 
register if you want the full package. Why not update Keyboard £ 10.00 
ProWesS at the same time because you will need the Mouse £ 6.00 


latest version to run ithe software. 


PROGRAMMING 


QD 98 £53.00 


Prices do not include postage and packing, 


SBASIC / SuperBASIC Reference manual £40.00 
Update Sheets / disk from earlier versions £ 15.00! 
Postage extra : UK = £ 7.00 other places call for details. 


QD + QBasic E 69.00 

QD + Qliberator + QBasic £ 110.00 " ~ Don't forget you can 
Qliberator £50.00 | pop into our shop in 
Master Spy v3.3 £ 30.00 N ew Versions U ame giy eh bee 
QPTR £37.00 New Prices too | You can get disk 


drives and all sorts of 
computer peripherals as 
well as your QL 


Easyptr pt 1 & 2 (together) £ 33.00 
Easyptr pt 3 (C library) £ 16.00 


QMake £ 18.00 UTILITI ES : supplies. 
QMon /JMon £ 22.00 ) = 
Basic Linker £ 22.00 QSpread 99 : nant Text 8 ‘i 
| DISA3 £ 37.00 Updates : | £79.00 
| QMenu £ 16.00 FiFi 2 £ 22.00 ees 


|Fountext 94 £ 39.00} 
| 2488 drivers £ 29.00} 


Cueshell 2 £ 30.06 
Qload/Qref £15.00 
Disk Mate 5 £16.50 


‘Just Words' by Geoff Wicks 
| THESAURUS, STYLE CHECK, SOLVITPLUS 3 
: £16.00 ea / ANY 2 PROGRAMS £ 18.00 / ALL3 PROGRAMS £ 25.06 


[Epson ESC/P2 drivers 
£ 26.00 


| NEW VERSION --- STYLE CHECK 3 QPAC 1 £ 20.00 Rape OOO | 

| THESAURUS V4.01 / SOLVIT PLUS 3 v 3.00 QPAC 2 £ 40.00 , SMSQ wordprocessor 

| Pointer drivens versions of Geoff Wicks popular programs. NOWONUY 5 | QTYP 2 £30.06 capable of handliing the full | 

| (needs Hot_rext, WMAN and PTR_GEN or SMSQ/E to run} £ 1 0 00 4 | screen on the Aurora / QXL/ : 

; Upgrades from previous versions £ 2.50 + SAE, QLO £32.00 | QPC systems. New drivers 
New manual for Style Check 3 £ 2.00 LDUMP £ 2 6. 00 | gre cartently being wetter, i 


| Spelling Crib : PD program £ 1.56 +SAE 
or Free if you buy all three programs 
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WATCH THIS SPACE f : 


£25.00) 
QL Today - 


Count 


| Suppliers of Quality ODOS/SMSQ products % 


| Tel +44 (0) 1903-200212 fax +44 (0) 1903-208070 


email qbranch@qbranch.demon.co.uk web : hitp:/Aow).qbranch.demon.co.uk 


Q Branch — 


Fe veling out on a limb ? 
Reach out for O Branch, 


Hardware 


Hardware and Sofware. 7 


QXL I £ 180.00 


The Bank Volt, 6 Coronation Buildings | Super Gold Card £ 160.00 


Ham Road, Worthing. Recycled Gold Card £ 60.00 * 
W. Sussex. BN11 2NN. UK. Aurora £ 100.00 

Qubide £55.00 

Qplane £ 25.00 

Aurora cables £ 3.00 

Aurora rom adaptor £ 3.00 

The 'Braquet’ £ 16.00 

* when available. 


ProWesS 
ProWesS £48.00 
DATAdesign £ 24.00 
Fontutils £30.00 


File Search £12.00 er, ere 
PFlist £ 12.00 There are currently available : 
Fontpack £ 60.00 2 Used Gold cards 

LINEdesign v 2.16 £ 24.00 2 New Super Gold cards 


PWfile £1800 | QXL Supercharge Kit 


p a r 2a r a h We have a few 33MHz 68040 processors, etc. which we can fit 
4 Dp to your existing QXL to increase its power and speed - call us for details 


The ProWesS word processor 


Package deals 


| QXLIT + SMSQ/E £ 220.00 
Aurora + SMSQ/E E 160.00 


Demo version £ 1.50 + postage 
Full Registered version £ 18.00 


Above package + Monitor £ 380.00 


The MC - Plate 


Q Branch Programs 


| The Knight Safe 1 - standard version £ 30.00 
The Knight Safe 2 - with compression £35.00 


Monitor & Keyboard sockets ) 
° H \ 
i 
s 


Q - Count £ 25.00 
Pointer driven home accounting 
Q - Route v1.07 E 25.00 


Route finding programme 


25 pin D sockers: 


All the socket obs: you will ever need on the back of 
your tower case. Just rip off the silly PC thing and screw 
on this one. No cutting needed. What could be easier ? 


Coming soon ! 
Mark Knight's Fractal Programs. 
we animated fractals on your QL ! 


Ready for use and giving all screen resolutions from 512 x 256 to 1024 x 576 


USS start at £ 25.00 + shipping Only a few left? _ 


We can accept payment by VISA, Mastercard and Switch. You can also pay by| 
Eurocheques made out in Sterling or a Sterling cheque drawn on a UK Bank. | Mas 
Prices include Post and Packing in Europe. | 
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In our example of switching on 
italics above, the equivalent 
command to turn off italics may 
be: 

PRINT #3 , CHR$(27) ; CHR$(53); 
It is very important to note that 
usually numbers should be sent 
as the values, not as a string of 
the individual digits. For exam- 
ple, to send the ESCAPE cha- 
racter, you must 

PRINT CHR$(27) ; 

not 

PRINT '2';'7'; 

That may have seemed ob- 
vious, but sadly it’s not always 
that easy. Some commands for 
Hewlett Packard Deskjets allow 
certain functions to be set 
using individual digits, with the 
orinter making sense of it all at 
the receiving end. You have to 
study the commands and try to 
understand what is expected. 
Another possible source of 
confusion may arise where 
some commands allow single 
digit numbers to be sent as a 
value, or as the characters. 
Epson printers, for example, 
use the ESC *- n sequence 
(where nis O or 1) to turn un- 


derline off or on. Many printers 
would allow both these options: 
PRINT #3, CHR$(2'7) ; CHR$(45) ; 
CHR$(1) ; 


PRINT #3, CHR$(27) ; CHR$(45); 
se bar 


It is rather dangerous to as- 
sume that this is always the 
case and you should try to 
establish which is the preferred 
option wherever possible, in 
case you find that it works on 
one printer, but not on another 
supposedly compatible one! 
This is the sort of nightmare 
scenario programmers often 
find themselves contending 
with, that a facility originally 
included with the best of inten- 
tlons ends up making life a little 
difficult for the programmer 
and the poor user who feels 
like throwing bricks at the pro- 
grammer, who only got caught 
in the middle of such a no-win 
situation. On the whole, on the 
QL scene, we are actually quite 
lucky in having programmers 
who will respond quickly to 
problems caused by such an 


example, provided the source 
of the difficulty can be pin- 
pointed. 


| Intend to write a 
program which needs 
to send Printer Control 
Codes. Which Printer 


type should | support? 
As many as possible, without 
making the printer driver instal- 
lation procedure needlessly 
fiddly or cumbersome. If you 
really cant be bothered trying 
to cope with all types of prin- 
ters, try to establish what kind 
of printer the target user of 
your software is likely to use. 
Most QL users have Epson- 
compatible printers {or at least 
most of their printers have Ep- 
son compatible modes) or HP- 
Deskjet compatible — printers. 
The command sets for these 
two types of printers are very 
different, but by coping with 
both these types, there is a 
good chance your program will 
work with most of the printers 
likely to be used by QL users. 


Gee Graphics! (on the 
QL?) - part 10 


Herb Schaaf 


From the LISTINGS_zip file of the QL Today 
Volume 3 cover disk get the file "Gee8_bas’, or 
type it in from the listing that accompanied GG#8 
in the Jan/Feb 1999 issue of QL Today. Then 
merge the listing from this article GG#10. Running 
the program creates two windows side by side. In 
the right window the tetrahedron is created as 
before. When you touch “P” a companion 
tetrahedron is created in the left window. When 
compared to the right image, the left image is 
seen to have been rotated on the Y-axis by a 
small angle. This discrepancy is used by our eyes 
and brain as a clue for depth determination and 
you now have a stereo-pair of images like those 
used in stereoscopes. 
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lf you have binocular vision you can achieve the 
illusion of depth by letting your right eye see the 
right image only, and letting your left eye see only 
the left image. It can help if you have an opaque 
divider to enforce this condition. Alternatively you 
may wish to stare into the distance, seeing double 
as you may have done for those single-image 
random-dot stereograms, so that you see 3 
tetrahedrons. The central one will seem to appear 
as a 3 dimensional object and the two small 
vertical lines over the center of each image will 
have fused to form an additional middle line over 
the pseudo 3-D image. 

Check that the distance between the small 
vertical lines above the images agrees with the 
center to center value stated on the screen. To 
calibrate your screen choose [Qluit; enter the 
command line BLOCK #0, 256,16,12816.4 and 
measure the length of the green bar in millimeters. 
Edit the program and use this value on LINE 410. 
After you have a pair of images you can change 
the spacing between them by use of the left and 
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right arrows. See what range of values your eyes 
can accomodate. A spacing equal to your own 
eye-to-eye distance is suggested. My eyes are 
about 65 millimeters apart. You can set the default 
value for your eyes on LINE 175. 

The angle of discrepancy can be changed by use 
of the up and down keys while viewing the pair 
Explore other values, and notice that as you 
‘go-through-zero’ the object will change so that it 
goes from convex to flatjat zero) to concave. See 
how extreme the angles can be in both directions, 
and also experiment with both the image-to- 
image and eyes-to-image distances. 


Tetrahedra_stereo_bas 


----- Listing -- 
100 REMark Tetrahedra_stereo_bas 
110 REMark H L Schaaf April 27, 1999 
120 REMark Gee Graphics #10, QL Today 
172 stereo_flag = 0 
174 spin_flag = 0 
175 default_c_e = 65 
177 default_disparity = -9 
178 default_size = 24 
245 IF ans$=="q" 
370 MODE 4 
380 WINDOW #0, 512, 50, 0, 206 : PAPER #0, 0: 
390 WINDOW #1, 256, 202, 256, 0 : PAPER #1, 0 
400 WINDOW #2, 256, 202, 0, 0 : PAPER #2, 0: 
405 horz_to_vert = 256/202 : 
410 horiz_calib = 107 : 
415 vert scale 
420 horzg_width 
425 
430 
432 
434 
436 
515 
640 
650 
705 
710 
830 
1165 
1270 : 
2025 
2102 
2104 
2225 
2270 : 
2280 REMark Stereo_pair 
2290 DEFine PROCedure Stereo_pair 
2300 REMark make copy for left screen 
2310 stereo_flag " 1 

3 


EXIT demo_loop 


cto_e = horz width 
CLS 
CLS #2 
tv(i,j) = tuv(i,j) * default_size/2 


PRINT #0;,"[A]nimation","Stereo [P]air",,, 
= 16 : Stereo_pair 
= 17: CLS #0 : STOP 
IF ans_num = 20 : 
IF stereo_flag : find_face_centers2 


INK 4 
stereo_flag = 0 : CLS#2 
motion$ = "spin on " 


IF INKEY$(8) == CHR$(32) : PAUSE 


2320 DIM t_v2(4,3 
2330 DIM t_f_c2(4,3) 
2340 DIM t_f_v2%(4,3) 
2350 DIM zsort2(4) 
FOR i 1 TO DIMN(t_v) 
zsort2(i) asort(i) 
FOR j =1T0 3 
t_v2(i,j) = t_v(i,j 
tof e2(s 4): = eee) 
t_f_v2%(i,j) = t_fv%(i,j) 
END FOR j 
END FOR i 


2360 
2370 
2380 
2390 
2400 
2410 
2420 
2430 
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measure$=" Millimeters " 
: sort_face_zs2 


You can figure what the angle would be based on 
your eye-to-eye distance and your eyes-to-object 
distance. My eyes-to-screen distance is about 42 
centimeters so | Set a default angle of -9 degrees 
on LINE 177. 

If your lines of vision cross over in a ‘cross-eyed’ 
fashion you get a smaller inverted illusory image 
and will want to change the sign of the angle. 

A delightful little paper-back book “Eye and Brain’, 
now in a 4th edition by Richard L. Gregory has 
several pages about stereo vision, and lots of 
other interesting material on how we see. (ISBN 
0-691-02456-1) 


INK #0, 4 : CLS #0 
: INK #1, 4: CLS #1 
INK #2, 4 : CLS #2 


REMark the window size in pixels 

REMark makes it come out in mm on my monitor; adjust to suit your setup. 
horiz_calib / (graspix*horz_to_vert) 

(vert_scale / (202-1)) * (256-1) * graspix 

SCALE vert_scale, -horz_width/2, -vert_scale/2 

SCALE #2, vert_scale, -horz_width/2, -vert_scale/2 


PRINT #0;"[T]ranslation", "[R]otation","[S]caling","[O]riginal data" 


A tt [Q]juit" 
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2440 
2450 
2460 
2470 
2480 
2490 
2500 
2510 
2520 
2530 
2540 
2550 
2560 
2570 
2580 
2590 
2600 
2610 
2620 
2630 
2640 
2650 
2660 
2670 
2680 
2690 
2700 
2710 
2720 
2730 
2740 
2750 
2760 
2770 
2780 
2790 
2800 
2810 
2820 
2830 
2840 
2850 
2860 
2870 
2880 
2890 
2900 
2910 
2920 
2930 
2940 
2950 
2960 
2970 
2980 
2990 
3000 
3010 
3020 
3030 
3040 
3050 
3060 
3070 
3080 
3090 
3100 
3110 
3120 
3130 
3140 
3150 


REMark default of 65 mm for c to ce 
e_c = default_c_e 
x_offset = ce - horg width 


SCALE vert_scale, (-horz_width/2)-x_offset/2, -vert_scale/2 


SCALE #2, vert_scale, (-horz_width/2)+x_offset/2, -vert_scale/2 


e_to_c = cc 
REMark and default of -9 degrees for disparity 
disp_ang = 0 
disp_angle = default_disparity 
disp_angl = disp_angle - disp_ang 
rotate t.v2, 2, disp_angl 
disp_ang = disp_angle 
show_pair 
END DEFine Stereo_pair 


REMark pair in respective windows 

DEFine PROCedure show_pair 

IF NOT(spin_flag) :CLS#0 

CLS 

draw_solid t_f_v% 

REMark put in top tick to aid fusion 

LINE 0, (vert_scale/2)*.9 TO 0,vert_scale/2 
CLS#2 

draw_solid2 t_f_v2% 

LINE #2, 0,(vert_scale/2)*.9 TO 0,vert_scale/2 
INK#2,4 

IF NOT(spin_flag) :stereo_menu 

END DEFine show_pair 


DEFine PROCedure draw_solid2(f_v_array) 
REMark find_face_centers2 : sort_face_zs2 
FOR i = 2 TO DIMN(f_v_array) 


ii = gsort2(i) : INK #2, nks(ii) : FILL #2, 1 
POINT #2, t_v2(f_v_array(ii,3),1) ,t_v2(f_v_array(ii,3),2) 
FOR j = 1 TO 3 
LINE #2 TO t_v2(f_v_array(ii,j),1) ,t_v2(f_v_array(ii,j),2) 
END FOR j 
FILL #2, 0 
END FOR i 
INK #2,4 


END DEFine draw_solid2 


DEFine PROCedure stereo menu 
CLS#0 


PRINT #0,,,"({"&CHR$(188)&' '&CHR$(189)&"]Center to center = "&c_to_c;" mm", 
PRINT #0, "["&CHR$ (190) &CHR$ (191) &" ]Disparity = ";disp_ang&CHR$(186) 


PRINT#O\,"({Slpin pair",,"[T]ransforms menu", ,"[Q]uit" 


ans $=INKEY$(-1) 

ans_num = CODE(ans$)MOD 32 
SELect ON ans_num 

QO : gap_change = 
8 : gap_change = 
16 : disp_change 
24 : disp_change 
17: quit_menu 

19 : spin_menu 

20 : transform_menu 

REMAINDER : CLS#¥0 : stereo_menu 
END SELect 

END DEFine stereo_menu 


1: Change_Space 
1: Change_Space 

1: Change_Disparity 
-1 : Change_Disparity 


uoH 4 


Hou Wow oH Wow 


DEFine PROCedure Change Disparity 
default_disparity = default_disparity + disp_change 
rotate t_v2, 2, disp_change 

disp_ang = default_disparity 

show_pair 

END DEFine Change_Disparity 


DEFine PROCedure Change_Space 

CLS#0: 

default_c_c = default_c_ec + gap_change 
xoffset = default_c_c - horg width 
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3160 SCALE vert_scale, (-horz_width/2)-x_offset/2, -vert_scale/2 
3170 SCALE #2, vert_seale, (-horg_width/2)+x_offset/2, -vert_scale/2 
3180 c_to_c = default_c_e 

3190 show_pair 

3200 END DEFine Change_Space 

3210 : 

3220 REMark quit menu 

3230 DEFine PROCedure quit menu 

3240 CLS #0: STOP 

3250 END DEFine quit menu 

3260 : 

3270 DEFine PROCedure find_face_centers2 

3280 FORi= 1TO04 

3290 DIM sumxyz(3) 

3300 FOR j = 1 TO 3 

3310 FOR k = 1 TO 3 

3320 sumxyz(k) = sumxyz(k) + t_v2(t_f_v2%(i,j),k) 

3330 END FOR k 

3340 END FOR j 

3350 REMark then take the average of the three values 

3360 FOR k = 1 TO 3 

3370 t_f_e2(i,k)=sumxy2(k) /3 

3380 END FOR k 

3390 END FOR i 

3400 END DEFine find_face_centers2 

3410 : 

3420 DEFine PROCedure sort_face_zs2 

3430 DIM zsort2(4) : FORi=1T704: gsort2(i) = i: END FOR i 
3440 counter = 0 

3450 REPeat short_sort 

3460 swaps = 0 

3470 FORi=2T04 

3480 IF t_f_c2(zsort2(i-1),3) « t_f_e2(zsort2(i),3) THEN 


3490 swaps = swaps + 1 
3500 swap zsort2(i-1) , zsort2(i) 
3510 END IF 


3520 END FOR i 
3530 IF NOT(swaps) : EXIT short_sort 

3540 END REPeat short_sort 

3550 END DEFine sort_face_zs2 

3560 : 

3570 DEFine PROCedure spin_menu 

3580 CLS#0 

3590 motion$ = "Spin around " 

3600 get_axis 

3610 INPUT#0;"ENTER Degrees per frame of animation ?", frame_shift 
3620 CLS #0 

3630 PRINT #0; frame_shift; CHR$(186); 

3640 PRINT #0;" per frame around the ";ans$;" axis" 
3650 PRINT#0;"tap [space bar] to toggle Stop/Start motion"\"hold down [ESC] for stereo 
menu" 

3660 spin pair 

3670 END DEFine spin_menu 

3680 : 

3690 DEFine PROCedure spin_pair 

3700 spin_flag = 1 

3710 REPeat spin_loop 

3720 IF INKEY$(10) == CHR$(27) : EXIT spin_loop 
3730 rotate t_v,axis_num, frame_shift 

3740 rotate t.v2, axis_num, frame_shift 

3750 Stereo_pair 

3760 IF INKEY$(2) == CHR$(32) : PAUSE 

3770 END REPeat spin_loop 

3780 spin_flag = 0 

3790 stereo_menu 

3800 END DEFine spin_pair 

3810 : 

3820 REMark end of listing Tetrahedra_Stereo_bas 


The listing of GG#10 is meant to be merged with the listing of GGHS8. 


Next time? Persian Recursions, or oriental carpets on the QL. 
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With the recent release’ of 
STYLE-CHECK 3, the upgrading of 
the JUST WORDS! program range is 
complete, 


All programs are now available in 
pointer driven versions and are fully 
mouse and high resolution screen 
compatible. 


They are not only better, but now also 
cheaper. 


SINGLE PROGRAMS: 
£10 OR€15 


THE COMPLETE SET: 


£25 OR €37 


Payment by sterling cheque or by giro 
transfer in euros to Netherlands 
Postbank number 4111942 (G.T. Wicks) 


Also available from QBRANCH. 


Geoff Wicks, 28 Ravensdale, 
Basildon, Essex SS16 SHU 
United Kingdom. Tel: +44 (0)1268 
- 281826 
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May | interrupt you...? 


Jochen Merz 

This text is aimed mainly at programmers: 
whether they program just for themself or for 
others. 

You probably heard about external event 
features in SMSQ/E - they are not much used 
yet but during the last journey to England, 
Bernd and myself thought of some very useful 
features which could be implemented into many 
existing programs ... but first we have to agree 
on the usage of the event bits. 


SMSQ/E does not provide any means of forcing 
programs to finish themself in a nice’ way, It is 
also not easily possible to tell programs "from 
outside’ to abort very long, time-consuming 
actions. 


What | mean when | say ‘nice finish’ is, that a 
program shuts down itself if and when it finds the 
time. RJOB force-removes a job, which may result 
in data-loss {you can force-remove it even while 
Saving, SO you may lose the entire file), you may 
not have saved the current text or file, but the 
program cannot do anything about it, it just gets 
removed from the system. ‘from outside” means, 
that you can tell a different program to shut itself 
down properly, e.g. save the current file if it hasn't 
been saved, ask for overwrite if if has to, and 
THEN terminate itself ‘outside’ can be a menu 
which allows you to choose a program, or a 
BASIC command, or in assembler or any other 
language. 


It should be easy to tell all currently running 
programs: shut down and save whatever has 
been changed (for example, if you want to turn 
your machine off). 


Have you ever selected a full tree in QPAC2, 
which took ages because you did it in the root 
directoy of your harddisk - especially if you set 
QPAC2 to tricky sorting? No way to interrupt this? 
Or have you ever started a force-assembly of all 
files of a large assembler project by mistake? No 
way to interrupt it, unless you force-remove the 
job (which is not a nice way, the output file it 
currently works on will most likely be rubbish). A 
fiddly solution would be to set the priority of the 
job to 0, check that there are no open files and 
then force-remove it. Annoying, because you 
have to start the program once again, find the 
right parameters etc. etc. 
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Wouldn't it be nice to tell the program to stop its 
current action and go back into the main menu? 


We think we have found a nice, easy-to-imple- 
ment solution. Please think about it and reply if 
you find drawbacks, but with better solutions, 
please! 

It is obvious that programs cannot always react 
tothis kind of request, only in certain situations 
(depending on the program), e.g.a MAKE program 
can check for interruption between every 
assembler run. The kind of signalling should 
therefore be an external "job" event, which is 
stored and can be checked by the program from 
time to time. 


Just think about how easy it would be to 
implement small pointer-driven "Abort" windows - 
all they had to do is to senda single event to their 
parent job ... if you know how much work the 
“Abort” job in QD was then you will know what | 
mean. With an event-driven solution, adding 
“Abort” windows to many other programs would 
be quite easy because it would take next to no 
effort to do it. 


SMSQ/E offers external events for some time. 
The events can be used by every job, even from 
BASIC. There are only eight bits available to 
signal events, so we have to find a way of dealing 
with them - some programmers may like to use 
the events also for other purposes. 


Our first idea: we use bit 7 to flag the new 
job-events. If bit 7 is clear (easy test for negative) 
then the other bits can be used for user-defined 


purposes. If bit 7 is set, two of the other bits 
signal the two events mentioned above. However 
this approach would require some _ tricky 
programming: some bits could be set to signal 
user-events, then bit 7 plus one of the events 
would be set to signal a job-event. Now the 
user-events pending would suddenly become 
job-events. Maybe an order of interpretation could 
be arranged, but it would be quite tricky, | think. | 
wonder if it is possible to define a means of 
interpretation which covers all possible bit 
combinations completely unambigously. 


Next idea: we all agree on two of the 8 bits to be 
used for these events (terminate and abort 
current action). So which bits do we pick, which 
bits have been used by which software (to avoid 
those) because we do not want to create 
confusion if we send a “terminate yourself” to all 
jobs currently running in the system. 

lf we agreen on two bits, then the jobs should 
check the job-events from time to time and react 
accordingly. 


How all this works, especially in BASIC. will be 
explained in the next issue - but we are waiting 
for your response first. We have ideas for our 
own programs and the events will quickly be 
implemented, provided we come to an 
agreement. Maybe you have another idea for 
another job event which could be useful to all of 
US. 


So please think about it, write to us - a quick 
email to SMSQ-event@j-m-s.com will not take 
too much time, will it? 


You and your Software - Just 


and placing. All these affect 
how easy your program is to 
e 


good Friends? * Part 9 "Menus" Fist length. The longer your 


Geoff Wicks 


menu, the more difficult people 
will find your program. Sub- 


Do you remember buying your 
first QL and your first attempts 
at using Quill? Would it have 
been easier if, instead of having 
to remember L for Load, S for 
Save and P for Print, you had 
had to remember F5 for Load, 
Fi0 for save and Shift + F7 for 
print? In total 40 combinations 
of the function keys with Shift, 
Control and Alt? This is what 
you would have had to learn if, 
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instead of a QL, you had 
bought a PC and WordPerfect. 
Quill came free with the QL, but 
WordPerfect would have 
charged you hundreds — of 
pounds for the privilege of 
using what must be one of the 
most user unfriendly commer- 
cial programs ever written. 

In this article we are concerned 
with menus in all their aspects 
including their length, content 


menus improve things a little, 
but some users also find these 
complicated. It is a good prac- 
tice to look at your menu items 
one by one and ask if each is 
essential. Let me give a few 
examples. 

My program Solvit-Plus 2 has 
two dictionary commands, one 
for loading a dictionary in 
Solvit-Plus format and another 
for importing a plain text file. In 
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practice only one command is 
necessary. The later version 
Solvit-PLus 3 first checks the 
format of a file, and if is not in 
the Solvit-Plus format warns 
the user and asks whether he 
wishes to attempt an import. 
Similarly, most word processors 
have separate load and import 
commands, but Perfection 
does not. In contrast Text8/ 
has a complicated menu struc- 
ture which makes it a slower 
and more difficult program to 
use. There are separate load 
and import commands, and 
then an import submenu with a 
choice between ASCII and Quill 
formats. Whenever | use 
Text87, | am continually won- 
dering if the menu structure of 
the program could have been 
much simpler. 

Programming is a logical activi- 
ty and sometimes when we 
think logically we miss the 
simple and obvious. When | 
was. designing Style-Check, 
logic said | would need a joad 
command followed by a sub- 
menu to choose between Quill 
Perfection, Text87 and ASCII 
formats. It was only when! was 
writing the program that | 
realised the different file 
formats were easy to detect 
automatically. | needed just one 
load command. 


Friendly Software Rule: Keep 
your menus as simple as pOssi- 


ble. 

When you have decided what 
to have on your menu, go 
through the items one by one 
and assess how often that item 
will be used. In a word proces- 
sor loading, saving and printing 
are among the most used com- 
mands. In most word proces- 
sors these commands are the 
first on the menu bar In contrast 
the help screens may only be 
used when the user is learning 
the program. Similarly configu- 
ration commands are likely to 
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be used only occasionally, 
usually when the program is 
new. Both of these commands 
have relatively low priority in 
the menu list. 

lf your program has a print 
routine, you will need menu 
commands for printing, setting 
the baud rate and the printer 
output device, but do not place 
these together Print will be 
used regularly, but the other 
two perhaps only once in the 
life time of the program. Place 
them by the configuration com- 
mand. 

Press F3 in Perfection or 
Text87 for good examples of 
setting priorities on menu lists, 
and in Quill for a bad example. 


Friendly Software Rule: Place 
regularly used items at the start 


of the menu. 

The next thing you have to 
decide is the placing and form 
of your menu. The most impor- 
tant thing is that your menu 
items should stand out from 
other items on the screen. 
They can be a different colour, 
a different size, a different font 
or in a special menu box or 
window. Good examples of this 
are Quill and to a lesser extent 
Perfection. An appallingly bad 
example is Text87. Poorly plan- 
ned, barely legible menus are 
one of the commonest faults in 
QL software. 

My recommendation for pointer 
programs is that each menu 
item is placed in its own box. 
This makes it easier for the 
user to get the pointer in the 
correct place. 

In my program QL-Thesaurus | 
went a stage further and put 
the main three search com- 
mands in a red stippled box to 
draw attention to them. 


Friendly Software Rule: Make 
your menu items stand out on 


the screen. 
Finally your menu items should 


be clear and unambiguous. 
Most programs no longer use 
the function keys, but a mne- 
monic. Where possible the 
mnemonic should be the first 
letter of the menu item. Empha- 
sise this letter by using a capi 
tal letter a different colour or in 
pointer programs underlining. 

lf you have two menu items 
with the same first letter, try to 
find an alternative name for 
one of them. In some of my 
pointer programs Dictionary 
has been changed to word List 
because | needed the D for 
page Down. Be careful, how- 
ever One reviewer rightly criti- 
cised me for using "Name of 
dictionary’ in a program instead 
of “Load dictionary’. When | 
was developing the program | 
needed the L for another com- 
mand, which | later replaced 
with a different routine. | forgot 
to change “Name’ back to 
‘Load’. 

lf you have to use a letter other 
than a first letter for the mne- 
monic, do not use any old letter, 
but think carefully which is the 
most suitable. In the print sub- 
menu of Text87 there are three 
commands beginning with P 
Print, Preview and Page. Obvi- 
ously print itself must have the 
P The other two are preView 
and paGe, which in both cases 
is a good choice of alternative 
letter as these letters are em- 
phasised when the words are 
spoken. In comparison 
pReview or pAge would have 
been inappropriate. 


Friendly Software Rule: Make 
the keypress used to imple- 


ment a menu item clear and 
unambiguous. 

The more daring programmers 
now use icons as menu items. 
There are pros and cons in 
doing this, which | shall discuss 
in a later article. 

Next time: System compatibill- 
ties. 
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TF Services 


superHermes 
A major hardware upgrade for the QL 


° All Hermes features (see below for list) PLUS full 19200 


throughput on ser!/ser2 not affected by sound 
f° IBM AT keyboard interface (plus foreign drivers) 
* HIGH SPEED RS232 industry standard two-way serial port. 


4800cps throughput (supergoldcard - qtpi - zmodem) at 


§7600bps 


° THREE low speed RS232 inputs (1200 to 30bps) Driver for 
SERIAL MOUSE supplied. Other uses include RTTY/ 


graphics tablet etc 
° THRE: spare 1/O lines (logic) with GND/+5V 
* Capslock/scrollock LED connector 
° Turbo/keylock connectors 
* 1.5K user data permanently storeable in EEPROM 


All this on a professional board about twice the size of 


the 8049 co-processor it replaces 
Cost (including manual/software) £90 (£92/£87/£90) 


IBM AT UK layout Keyboard ..... £22 (£24/£23/£27) 
Serial mouse £11 (£13/£12/£14) 
Capslock/scrollock LED £1 (£1.50/£1/£1.50) 
Kevboard or mouse lead £3 (£3.50/£3/£3.50) 

£4 (£4.50/£4/£4.50) 


Hermes available for £25 (£26/£24/£27) Working ser1/2 
and independent input, debounced keyboard & keyclick. 


superHermes LITE 


All Hermes features (see above) + an IBM AT 
keyboard interface only. Entry level superHermes. 
Cost (incl keyboard lead)...£53 (£55.50/£51/£53.50) 


MINERVA RTC (MKII) + battery for 256 bytes ram. 
CRASHPROOF clock & 1’C bus for interfacing, Can 
autoboot from battery backed ram. Quick start-up. 


The ORIGINAL system operating system upgrade 
OTHER FEATURES COMMON TO ALL VERSIONS 


DEBUGGED operating system/ autoboot on reset of power 
failure/ Multiple Basic/ faster scheduler- graphics (within 
10% of lightning) - string handling’ WHEN ERROR/ 2nd 
screed TRACK/ non-English keyboard drivers/ “warn” 
fast reset. V1.97 with split OUTPUT baud rates (+ Hermes) 
& built in Multibasic. 

First upgrade free, Otherwise send £3 (+£5 for manual if requd). 

Send disk plus SAE or two IRC's 


MKI...£40 (£41/£40/£43) MKIEL..£65 (£66/£63/£67) 


QL REPAIRS (UK only) 


Fixed price for unmodified QLs. excl microdrives. QLs 
tested with Thorn-EMI rig and ROM software 


£27 including 6 month guarantee 


OL RomDisg 


Up to 8 mbyte of flash memory for the QL 

A small plug in circuit for the QL’s ROM port (or 
Aurora) giving 2. 4 or 8 mbytes of permanent storage 
- it can be thought of as a portable hard disk on a card, 
and reads at some 2 mbytes per second. 

Think of it - you could fully boot an expanded QL. 
including all drivers/SMSQ etc off RomDisq at hard 
disk speed with only a memory expansion needed. 


£39 (£41 £37/£40) 
£65(£66/£63/£67) 
£98 (£100/£95/£99) 
£3 (£3. ey 


2 mbytes RomDisq 
4mbytes RomDisq 
8 mbytes RomDisq 
Aurora adaptor 


MPLANE 


, A low profile powered backplane with ROM port 


A three expansion backplane with ROM port included for 
RomDisq etc. Aurora can be fitted in notebook case and 
powered off single 5V rail - contact QBranch for details. Two 
boards (eg Aurora and Gold Card/Super Gold Card/Goldfire 
fixed to base. Suitable for Aurora (ROM accessible from 
outside) & QI motherboard in tower case. Speafy ROM 
facing IN towards boards, or OUT towards hack of case 


CSG sss eeetiscccscs sassesdsesees £34 (£36/£33/£35) 


I2C INTERFACES 


Connects to Minerva MKII and any Philips °C bus 


Power Driver Interface 16 V/O lines with 12 of these used to 
control 8 current carrying outputs (source and sink capable) 

2 amp (for 8 relays, small motors) ............ £40 (£43/£38/£44) 
4 amp total (for motors etc) £48 (£48/£43/£50) 
Relays (8 3a 12v 2-way mains relays (needs 2a power 
driver) ..0.........0.... : .. £25 (£28/£23/£27) 
Parallel Interface Gives 16 input/output lines. Can be 
used wherever logic signals are required... £25 (£28/£23/£27) 
Analogue Interface Gives eight 8 bit analogue to digital 
inputs (ADC) and two 8 bit digital to analogue outputs 
(DAC). Used for temperature measurements, sound 
sampling (to 5 KHz), x/y plotting. . . £30 (£31 50/£29/£30) 
Temp probe (~40°C to +125°C)......... £10 (£10.50/£10/£11) 
Connector for four temp probes £10 (£10.50/£10/£11) 
Data sheets £2 (£2.50/£2/£3) 
Control software & manual (for all I/F).. £2 (£2.50/£2/£3) 


L SPARES 


£12 (£12.50/£12/£13.50) 
1377 PAL £3 (£3.50/£3/£4) 
Circuit diagrams............ £3 (£3.50/£3/£4) 
68008 cpu or 8049 IPC oo £8 (£8.50/£7.50/£9) 
8301/8302 or JM ROM or serial lead . £10 (£1:1.50/£10/£11) 
Power Reed (sea mail overseas) ake (£17/£16/£21) 


Other components (sockets etc) also available 


Keyboard membrane 


Prices include postage and packing (Airmail where applicable). Prices are: UK (EC/Europe outside EC/Rest of world). Payment by cheque drawn on bank with 


UR address, debit card/Mastercard/Access/Eurocard/postal order or CASH! (No Eurocheques). SAE or IRC for full list and details 


_19 Dec 98 


29 Longfield Road, TRING, Herts, HP23 4DG 


VISA Tel: 01442-828254 


Fax/BBS: 01442-828255 


ij... | ~tony@firshman.demon.co.uk _http://www.firshman.demon.co.uk 
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Ramblings of an 


Unreasonable Man 

First of all a big thank you to 
those people who attended 
that Hove show at the end of 
February and an even bigger 
thank you to those who took 
the time and effort to give a 
talk. Mark Knight did a wonder- 
ful exposition on fractals, Geoff 
Wicks demonstrated the new 
version of his Style Check pro- 
gram, Keith Mitchell gave a 
demonstration of the MinisQL 
construction and Rich Mellor 
stepped in at the last moment 
(when Jonathan —_ Hudson 
dropped out) to give a quick 
talk on the progress of RWAP 
software. All in all an enjoyable 
show for me, and | hope for all 
who attended. 

Thanks again to all who 
helped me to organise it. 


Reasons to be 
Cheerful - Again. 


There are many reasons why 
| prefer to have most of my files 
on QL based hardware. At the 
Hove show a customer 
brought along a nice 300 MHz 
laptop with a 1024 x 768 pixel 
display and wanted me to 
install QPC on it for him. ‘No 
problem’, | said because | have 
installed many copies of QPC 
and had no problems before. 
This one was different. 

lt seems he had a virus on his 
system which, as soon as | 
tried to restart the computer, 
deleted the COMMANDCOM 
file. Those of you who have 
PCs will know that this file has 
all of the basic DOS commands 
in it and, because there is no 
ROM on a PC, this means that 
you can do absolutely nothing. 
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You cannot delete, copy, run a 
directory or anything. This lap- 
top occupied about 4 hours of 
Steve Hall's time at the show 
and, in the end, we had to 
re-install Windoze. 

OK, you may think, that will 
solve it. Nope. Windoze 95 
does not have a screen driver 
which will handle 1024 x 768 on 
an LCD screen and the display 
would not go beyond 640 x 
480 and looked dreadful. We 
wound up having to take it 
back to the shop and install 
Windoze 98 after a full hard 
disk format and a half hour on 
the internet downloading the 
necessary drivers from the 
maker's website. 

|am very glad that my Aurora 
systems have solid, un-infect- 
able operating systems on 
ROM on the main board. Even 
restoring my system from the 
hard disk crash mentioned in 
the last issue did not take as 
long as it did to fix this one 
laptop. 


Reasons to Engage 


Brain Occasionally 

| mentioned, in the last issue, 
a couple of customers who had 
problems with their systems 
but managed to solve most of 
them themselves. We all do 
something stupid sometimes 
and we often compound the 
problem by asking other peo- 
ple questions which, either as 
we say them or as we slip the 
letter into the post box, we 
suddenly realise are dumb. 
Some of the PC users that 
come into my shop abuse that 
privilege. 


A recent case was a man 
who bought an Olivetti Inkjet 


printer from me. First he told me 
that it would not print so | had 
to tell him to install the driver 
This solved the problem and he 
was quite happy for about 
three months. Then he came 
back. It has stopped printing 
again’, he said. | started to go 
through the usual problems 
when he said that his dad took 
the top off the computer and it 
stopped working so he bought 
another one. | asked him if he 
had installed the driver on the 
new machine and he assured 
me he had. PCs have an 
amazing facility which allows 
you to play around with the 
BIOS and do useful things such 
as switching off the parallel 
ports etc but | did not want him 
in the BIOS so | said bring the 
printer and computer in and | 
would look at it. 

It was only when he brought 
it in that | thought to ask if there 
were any lights on on the prin- 
ter This was actually to see if 
the power was getting through 
to it but it brought the res- 
ponse, 

Oh yes, these two flash on 
and off 

‘What does that mean ?’ | 
asked. 

| don't know’, he said. 

‘Well look it up in the manual’ 

Guess what? It had run out of 
ink! 


Reasons to Listen 

| received two communica 
tions recently and both of 
these had a bearing on the 
way in which the everyday 
user sees the software that he 
has to use. | did discuss this 
with Stuart Honeyball a while 
ago and, in principle, | agree 
with him that software should 
be fairly transparent to the user 
and the idea that he should 
have to wade through reams of 
paper to be able to use it Is not 
a good thing. Of course this 
does depend, to a degree, on 


QL loday 


the complexity of the actions 
that the program is going to 
take. 

The first of these letters 
came from a subscriber to this 
magazine who decided not to 
re-subscribe because he could 
not understand how to use the 
QL and had moved to a PC 
whose programs had con- 
textual help files which pop up 
at many stages in the process 
and explain things. In many 
ways this is a good way of 
doing things and | would like to 
see more of this in our pro- 
grams. Jochen's latest 
menu_rext used in conjunction 
with SMSQ/E has the ability to 
pop up small explanations 
along these lines and both 
ProWesS and PD3/S utilise a 
system whereby each com- 
mand menu had a help file 
attached to it so you could go 
directly to the help you needed. 
This is something we should 
see more of 


Reasons [o be 


Humble 

The second communication 
was by email. Another person 
who did not want to continue 
with QL accused me of reject- 
ing his programs. | did this be- 
Cause, in my opinion, they were 
unfinished - lacking a front end. 
This is a matter | have raised 
with other people, mostly PD or 
Shareware writers. These peo- 
ple do all the clever stuff. They 
write or port from other sys- 
tems, great applications many 
of which are very useful but, in 
order to use them, you have to 
type ina list of switches and file 
names in a set format. 


When asked to provide a 
user-friendly front end to these 
they reply, ‘Well the information 
is there, you can write it your- 
self. 
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Ok maybe | can (and | have 
often done this) but some peo- 
ple cannot and unless these 
people are helped out by pro- 
grammers like Thierry Gode- 
froy they are barred from using 
all of these utilities. Without 
Thierry’s excellent Archivers 
Control Panel a large amount of 
users are effectively disbarred 
from using programs like Zip or 
Unzip. This is not because the 
actual use of the programs is 
hard but the manuals provided 
are all but un-inteligable and the 
real information is buried under 
reams of programmer-speak. 


The '‘Welll can do it and if you 
can't then | cannot be bothered 
with you’ attitude is a supreme 
kind of arrogance and intellec- 
tual snobbery and we can do 
without it. 


Reasons to BBS 

While | am on the subject of 
PD writers | have noticed that 
there has been a remarkable 
lack of programs arriving on 
the QL BBS (Bulletin Board 
System). 

This is not, | think, because 
the programs are not being 


SBASIC / SuperBASIC REFERENCE MANUAL 


If you have ever felt the need to program the QL in SuperBASIC, this is 
the book for you. With detailed descriptions of all of the keywords 
available to the programmer, including notes on each of the different 
implementations and wamings as to where incompatibilities may lie, 
coupled with 100s of examples, any discerning programmer cannot do 
without this book. Detailed appendices deal with hints on programming, 
using device drivers and networks, getting the most out of the QL’s 
colours and display and even using multiple copies of Basic. 


A detailed index program is supplied, which allows you to look up what 
you are trying to do in SuperBASIC and then tells you which parts of the 
Reference Manual cover this topic. A disk full of examples from the 
book is supplied, as well as a disk with all of the public domain toolkits 


covered in the Manual. 


Release 1 of this top selling QL book is now available. See the review in 


Volume 3 Issue 6 for brief details. 


Be a Feeder rather than a Chicken!! 


Price: £40 plus post & packing 


UPDATE SERVICE 


Existing owners of the Reference Manual (purchased before 
28/2/99) need to update now!! 


Get the Release 1 Update for £6 or pre-order the Release 2 
update at the same time for £10 in total. 


You need to keep up to date to get the most out of your 


computer!! 


HOW TO ORDER: 
Contact: Rich Mellor, 26 Ashenhurst Road, Russells Hail, Dudley, West Midlands DY1 2HH 
Tel: 01384-350043 
Credit Card orders can be accepted via Qbranch. Otherwise payment must be in 
cheque Sterling payable to R. Mellor 
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written but because many of 
the authors have their own 
websites on which they post 
the programs. This is Ok if you 
assume that all the people who 
want the programs have inter- 
net access and they can work 
out that there are new pro- 
grams available there. 

| got my first modem a few 
years ago and | was a regular 
visitor to the BBS trawling for 
new and unusual items. Even 
though | am now a regular user 
of the internet | still use the 
BBS to upload my adverts to 
both Tony Firshman and 
Jochen. It seems annoying to 
me to do the ad on my QL and 
then transfer it to the PC in 
order to send it when there Is a 
perfectly good QL way of 
doing it. 

QL Today offered PD and 
Shareware writers a space to 
announce their new programs 
but so few of them took it up 
that we never ran it as a regular 
feature. It seems absurd to me 
that people who write QDOS/ 
SMSQ programs put it out on a 
media not accessible by QL 
hardware (and often with in- 
structions in a format unread- 
able by QL users). 

This was illustrated by the 
ql-users mail group on the inter- 
net recently. Arnould Nazarian 
popped up to talk about the 
Palm Pilot hand held computer. 
Someone else mentioned that 
Joanthan Hudson had written/ 
ported some programs which 
allowed QDOS to communicate 
with the Palm Pilot O/S and 
loads of people popped up to 
say What? Where can | get it 
it? What does it do?’ etc. 

Come on guys, | know the 
BBS cost a bit more to access 
but put your stuff up there and 
let QL users with no internet 
access have a look at it. 

On a QL BBS, when you log 
on, you get a list of new files. 
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On the internet you have to go 
to each site in turn and look to 
see what is new. Thierry Gode- 
froy (this is fast turning into the 
Thierry Godefroy fanzine here) 
does at least put everything he 
can find on his site but most of 
the other PD writers don't. 
Don't let us turn into a little 
fragmented group who only 
post stuff on our own sites - 
publish and be downloaded ! 


Reasons to be Clean 
and Shiny 


A while ago Dilwyn suffered 
from the same problem that a 
few other people have had - 
namely, when they switch on 
they get the mystic words ‘QL 
ROM Not Recognised - Contact 
Miracle Systems’. This is doubly 
annoying because if you do 
contact Miracle Systems they 
cant tell what the problem is 
without having your system 
back for a complete test (actu- 
ally Stuart just passes these 
problems on to me so bypass 
the middle man and tell me 
first). 

One thing to check before 
pouring more cash into the 
Telecoms industry is the ROM 
socket. When you switch the 
machine on it goes through a 
set sequence of actions 
checking the RAM, the exten- 
sion slot and the ROM slot 
before finally firing up the sys- 
tem. If the ROM slot is occupied 
then It will read the ROM and 
put any header in its code on 
screen. 

lf however the ROM slot 
does not read properly or the 
code in the ROM will not read 
into the system it will stop right 
there and not go any further. 
Since reading the ROM slot is 
one of the first things that the 
system tries to do you will get 
the message above. It does 
not mean it cannot read the QL 
ROM itself but the effect is the 


same. 

lf you get this message try 
removing any ROM you have 
plugged in and cleaning the 
contacts with a pencil eraser If 
the problem persists remove 
the Gold/Super Gold Card and 
GENTLY clean the pins of the 
connector on the QL end. 
These little things could solve 
the problem and put you back 
on the road again. 


Reasons to go TRA la la 

There are many ways to get 
confused in the wide world of 
computing. Ask someone 
about something complicated 
that he knows a lot about and 
prepare to be assaulted with a 
mass of information, a lot of 
which will emulate Concorde 
and whizz over your head at a 
vast rate of knots. You can also 
ask an expert about something 
that he thinks is simple. The 
resulting reply may fulfil three 
criteria: 

a) short, 

b) delivered with an unspoken 
implication of ‘You mean you 
don't know about that ?’ and 

c) unenlightening. 

Years ago when | started to 
use QSpread | found that the 
pound sign did not come out 
as a £. Jochen said | was 
using the wrong translation 
table but | had never used any 
translation table at all and had 
no idea what | should do. 
SMSQ/E made things simpler 
because ‘TRA’ became a new 
KEYWORD but | still did not 
understand it. 

When Jochen and Bernd 
Reinhardt put their heads to- 
gether to produce the new, and 
vastly improved, QSpread 99 
(big ad here) they emailed me 
copies of the beta versions to 
test. Jochen wrote a new prin- 
ter filter/driver and it still did not 
print the required pound signs. | 
asked Jochen about this and 
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finally the light dawned. If you 
want to get programs like QD 
and QSpread to print the pound 
sign add the line ‘TRA 3° to 
your BOOT file. This is quite 
simple and '£' signs appear 
miraculously. 

The next problem is that pro- 
grams like Text 87 which 
always produced the required 
printout now produced a 
wrong character If you change 
the printer port in these pro- 
grams to 'PARd’ everything 
returns to normal because they 
then ignore the — translation 
table. 

All this is probably ‘old hat’ to 
many of you but | had some- 
how missed the vital piece of 
information which | needed to 
make it work and! suspect! am 
not alone. 


Reasons to Hang out 


the Bunting 

The big highlight of March, 
for me at least, was receiving 
the first two SMSQ/E ROMs for 
my Q 40. Tony Firshman had 
been very pessimistic about 
progress for a few weeks 
since a lot of the code he had 
received had not worked. He 
sent the ROMs to me and, 
having plugged them into my 
Q 40 [one of the first produc- 
tion boards) up came SMSQ/E! 
Tony had a faulty component 
on his board which was no 
problem when firing up QDOS 
Classic but caused a big pro- 
blem to SMSQ/E. 

It is not the full shilling yet but 
there is not much change left 
to juggle before it is - Whoo- 
pee here come the fast QLs at 
last. At the time of writing | 
have a basic QPAC 2 system 
up and running with Cueshell, 
QD, Filelnfo 2 and a lot of other 
stuff running and, by the time 
you read this they will be avai- 
lable at a QL show near you. 


My joy at getting this project 
off the ground is not just a 
financial one since the Q 40 
itself is not a big money spin- 
ner The real reason that the 
Q 40 is such a big event is that 
it is the first total QL replace- 
ment since the Thor The extra 
things that the Q 40 offers will 
allow programmers to do a lot 
more than any other piece of 
QL hardware and they thus 
hold out the carrot of better 
programs. After years of hard 
work by Peter and Claus Graf 
and another effort by Tony 
Tebby, Mark Swift, Tony Firsh- 
man and Richard Zidlicky (who 
has ported LINUX to the Q40) 
the thing is finally a reality and 
we have a real alternative, ad- 
vanced, system - and not a 
wisp of vapourware. 

Of course each new piece of 
hardware adds a few little pro- 
blems to the general melting 
pot and there are going to be 
programs which will not run and 
others which don't do what 
they are supposed to do. As a 
lighting engineer friend of mine 
once said ‘There are no pro- 
blems - only new opportunities’. 
The old ‘One small step for 
man one giant leap for 
QDOSkind' misquote. 


And Finally... 
Reasons for Shady 
Mice 

| had a brain teaser in the 
shop recently. After a discus- 
sion with Steve Hall about mice 
and the relative merits of 
spending an extra three or four 
pounds to get one which said 
‘Logitech’ on it | found the the 
cheapish ICE mouse which | 
had been using would only 
make the cursor go up and 
down and not from side to side. 
| immediately suspected some 
merry prankster had been 
fooling with the device but 


could find no evidence of this. 

| took it apart and cleaned it. 
No better This was very frus- 
trating because | was trying to 
do the end of the day's ac- 
counts on QSpread and a 
mouse |s pretty essential for 
that. | gave up and went home. 
The next day the mouse was 
fine again. Two days later it 
happened again. | took the 
mouse apart and examined the 
wiring. | took the MinisQL apart 
and examined that too. Nope - 
no answer there. 

After a period of functionality 
the mouse reverted to its 
directionalist tendency (maybe, 
| thought, this is some sort of 
political mouse statement. Cen- 
treist leaning if there is such a 
concept). Finally, last week, it 
happened earlier in the after- 
noon and | decided to have a 
cup of tea and contemplate the 
problem. | had been through all 
of the usual ideas about com- 
ponents overheating after be- 
ing on all day. | had switched 
the computer off for a while, | 
had changed the serial cables. | 
put the cup down on the desk 
and moved the mouse. It went 
sideways - for a while. 

Then | saw the light! Or rather 
the mouse had seen the light 
earlier on. Late afternoons, if 
the sun is out, it shines directly 
on the desk where the mouse 
sits. It is an optical mouse. The 
sun shines through the mouse 
buttons in the front of the 
mouse and it is blind in one eye 
the reason it worked when |! 
put the cup down was because 
the cup shaded the mouse. 
Simple really but very hard to 
diagnose. 
| 


The QL Show Agenda 
Regular OL Meeting - (NL) Eindhoven 


Saturday, 26th of June 1999! 
Held at its usual Venue: St. Joris College. 


The meeting starts at 10am and ends at 4pm. 
\QBranch with the Q40 and Jochen Merz Software with QPC 2 will be presen 


OL Shows - (F) Paris 


Sat., 18th of September 


The date is fairly definite but the place was not known at the time QL Today went t 
the printer. More details in the next issue - watch this space! 


Quanta workshop - (GB) Byfleet 


Sun., 3rd of October 1999 


As usual in Autumn, the Byfleet Quanta workshop. 
There is still plenty of time, so details will follow in the next issue. 


OL Meeting - (A) Heidenreichstein 
Sat./Sun., 9./10.th of October 1999! 

Same venue as last time: Gasthof Nobauer. 

Definitely a very nice, social event too! 


| Austrian meetings are always more than "just" a QL meeting. This time, a visit to a narrow gauge 
\ railway and a model train exhibition is planned. More details in the next issue of QL Today 


